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PLUG IN AND GO! 

Instant Video 

The only video board that works directly with the AIM or SYM Monitor, Editor, 
BASIC and Assembler. Simply connect to your system with our cable 
assembly, initialize the ASK software, (available in EPROM) and all output 
will appear on the monitor. It is very easy to use with most KIM programs. 
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VIDEO PLUS™....$245 
Cable Assembly.. ..$15 



ASK EPROM....$45 
See special offer below. 



Total Expansion 

Many companies can sell you a RAM board! 

Many companies can sell you an EPROM board! 

Many companies can sell you an EPROM Programmer! 

Many companies can sell you a Prototyping board! 

Many companies can sell you an I/O board! 

Only The COMPUTERIST® offers all of these features on one high 
quality board for less than others charge for a plain RAM board! Direct con- 
nection to your AIM, SYM, or KIM via our Cable Assembly. 

DRAM PLUS™ With 16K RAM $295 With 32K RAM $395 

Price includes everything except EPROMs. 

"Special Offer Below" 

Mention MICRO, The 6502 Journal, when ordering a Cable Assembly with a VIDEO PLUS or 
DRAM PLUS and you will receive the Cable Assembly for only $5, a savings of $10 off the 
regular price. Offer expires October 31,1980. 

Interface/Experiment 

The AIM/SYM/KIM I/O Board provides connections for power, tty, cassettes, 
and includes relays to drive two cassettes for your system. And, as discussed 
in 'Programming and Interfacing the 6502, with Experiments' by Marvin L. 
DeJong, contains switches and LEDs to perform the experiments. 

ASK l/O™....$50 

Write for your Free 1980 Catalog which 

describes these and our other products 

for the AIM, SYM, AND KIM, in great 

detail. 

Dealer inquires invited. 



Assembled and Tested 

Shipping and Handling 
Prices for U.S. and Canada only, 
other countries 10% higher. 
Prices do not Include shipping and handl- 
ing. U.S. S3/board; Canada $6/board; other 
write for rates. 




aaGaipfflTiaciai? 

_— I 34 Chelmsford St., Chelmsford, MA. 01824 617/256-3649 
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APPLE II SOFTWARE 
FROM ON-LIitfE SYSTEMS 

PADDLE-GRAPHICS: 

The most powerful Hi-Res graphic development package available. Upper/lowercase maybe drawn on the Hi- 
Res screen in any size, direction or color. Pictures may be sketched and filled in with any of 21 colors ( must be 
seen to believe!). A shape may be constructed automatically from any object appearing on the Ili-Res screen. 

48K Applesoft/Machine Language 
039.95/disk 

TABLET-GRAPHICS: 

All of the capabilities of PADDLE-GRAPHICS extended for use with APPLE'S GRAPHICS TABLET. 

48K Applesoft/Machine Language 
049.95/dtek 

HI-RES ADVENTURE *1: 

Your APPLE computer becomes your eyes and ears as you enter a spooky old mansion in search of treasure. 
You direct it in English to move you through the house which is portrayed in full HI-RES GRAPHICS. You are 
in complete comtrol as you open caabinets, smash walls and manipulate any items you might find. Danger is 
ever present as you find your friends being murdered one by one. This game will definitely challenge your 
imagination. French version available upon request. 

Machine Language for die Apple II or II plus 48K 

024.95/disk 

SKEETSHOOT: 

A real-time I Ii-Res graphic simulation of the sport of skeetshooting. This game has all the sounds, action, and 
excitement of the real sport as well as the official firing positions. One to five players may compete. 

Machine Language for die Apple II or II plus 48K 

#19.95/dlsk 

TRAPSHOOT: 

One to five players compete at die sport of trapshooting. Fast action with many skill levels including adjustable 
shotgun spray make diis game a true cliallenge. 

Machine Language for die Apple II or II plus 48K 

014.95/disk 

COMBINATION: 




I II-RES ADVENTURE and SKEErSIKX)T both on disk. 

Machine language for the Apple II or II plus 48K 

037.50/disk 

Available at your local computer store. 

OX-LIKE SYSTEMS 

772 N. HOLBROOK ST. 

SIMI VALLEY, (A 93065 

805-522-8772 

Dealer Inquiries Invited 

All orders shipped same day. 
Software may Ik- ottered directly by calling/writing, 805-522-8772. Orders may be: a)I)/CHECrVNL\STEKaiAKGIVVISA. A.kl Hi shipping, 

California residents add 6% sales lax. 



! ! 



xmmm* 



AIM 65 SUPPORT PACKAGES 



HARDWARE 



8K MEMORY EXPANSION CARD 

2114 RAMS 

COMES READY TO USE ON 4K MACHINES 

INCLUDES 16 2114-300 N. SECS 

STATIC RAMS $178.00* 



3K PACKAGE OF 2114 RAMS FOR 
INITIAL EXPANSION OF 1K 
MACHINES 

INCLUDES 6 2114-300 N.SECS. 

STATIC RAMS $48.00* 



16 CHANNEL ANALOG TO DIGITAL 
FOR 8 BIT PORT 

0.5% ± 1 BIT ACCURACY $168.00* 



SEND $1.00 FOR A COPY OF 

LINKAGE GENERAL 

A Newsletter supporting AIM 65 Users 
Articles Requested 




P. O. BOX 641 

ORANGE, CA 92666 

(714)771-4038 

SYSTEMS DESIGN 



SOFTWARE 

CASSETTES REQUIRING 4K MACHINE 
WITH 8K BASIC 

BASIC TECHNIQUES 

SELFTEACHINGFORTHEBEGINNER$9.00* 

BUSINESS LIBRARY 

INCLUDES:RISK ANALYSIS 

INCOME STATEMENT 
INTEREST RATES ANALYSIS 
BUDGET $11.50* 



MATH LIBRARY 

INCLUDES: F RATIO 

CORRELATION COEFFICIENT 

CURVE FIT 

DETERMINANTS 

DIFFERENTIAL 

EQUATIONS 

DERIVATIVE $9.95* 

GAMES LIBRARY 

INCLUDES:CRAPS 

CHECKERS 

STUDENT 

BLACKJACK 

TIC TAC TOE $9.50* 



CASSETTES REQUIRING 1K MACHINE 


UPPER MEMORY 


SOFTWARE 


CLOCKS 




COMPATIBLE WITH BASIC 




SPECIFY MEMORY SIZE 




COMES WITH UTILITIES AND 




USER TIPS 


$8.30* 


*CA. res add 6% sales tax, 
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Information about 6502 oriented clubs 
by Mike Rowe 
The MICRO Software Catalog: XXII 

Continuing software product announcements 
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by Dr.William R. Dial 
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Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
Like These Every Month 



HARD DISK DRIVE Diablo Mod 31 
1.2 MByte std. density. Includes 
power supp. and cable, rack mount 
slides, amd manual. Excellent 
[ condition. $450. gy* - »—^\l601 

and P? r * n iL,rH.| sizes-Smgw y 



-^ d °d%at%aV Brai r a 
standard P' a integr a\ 

mechanisni^^^gar^oW 



data 
$589, 



HEATHKIT H-11/DEC LSI-11 
system, 32K Byte storage, reader 1 
| punch, video terminal, complete 
software. Cost $4500 assembled, 
$3500 kit. Like new. Sell for $2250. 
305-962-6677. 2058 Griffin Rd., Ft. 
Lauderdale, FL 33312. 



7?iJ M tE: ' nte ,^ ta (Perki "-^er) 
7/16 Mm. with 32KB core, fron 

HsTan 5 °\ PWR SUPP 'V- '"dude 
HS tape reader, interfaces for LP, 2 

rma and RS . 232 ■ 

programmable), deludes manS 

,3S ^^ERM^OMAT.ON ALPHA 
16; 16 k-word core memory RTCJ 
p F '-R. Modified Mod. ASR-33 TTY 

Manuals, "tilitjeSjjssembters am 

many option boards- 16 bit I/O 
Driver, 16 bit I/O, Asynch modem 
contr. 64 bit output, 10 bit A/D - 
DM. Fairly complete documen- 
tation. Up and -unnin^Wj. 
Not much more than TTY at $1000 
Herb Sauer, 303-494-8724. 



FOR SALE: Heath H9 video ter- 
minal, excellent condition, $175 or 
best offer. You ship. [214] 962-4484 

memory board without memory 
chips and Phi deck controller board" 
(M,_ v assembled or not working) U 

»M0 Dual F/opp^^JPWer $800; 

° afa than 6 TrI^m f , h °' ds '"ore 
£*■• cassettes ^f' 5 ^ $1,100 
gemcompSVg^O each 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But, COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation. 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it. 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy. 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items. Combining 
this with low individual ad rates — 10 cents a word — 




makes it the ideal place for buyers and sellers to com- 
municate. And, its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible. 

COMPUTER SHOPPER will work for you in other 
ways, too. If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you. 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first? We'll give you your first issue FREE 
and then bill you for the next 12. If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel" on the in- 
voice and return it. 

And, to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want. 

If you don't need to use the free classified ad now, use it anytime 
during your subscription. 

Subscription: $10/year, 12 issues plus your first free one. Bank 
cards accepted. Money back guarantee. 



The Nationwide Marketplace lor Computer Equipment 

CamPUTSR SHDPPSR 

P.O. Box F22 • Titusville, Florida 32780 
Telephone 305-269-321 1 



A MICRO Potpourri 

While cleaning out my desk, as part of adding office 
space to MICRO, I uncovered a vast cache of notes that I 
had written to myself: little things which I wanted to pass 
on to MICRO'S readers. 

Canadian Mail: There seem to be problems with the 
Canadian mail service. In recent months we have been 
receiving more reports of non-delivery from our northern 
neighbors than from all of the US subscribers. We hope 
that the service gets better, and for now can only counsel 
patience. If you magazine does not reach you by the mid- 
dle of the month, then complain to your postal service. 
Mailing Date: MICRO is always in the mail before the 
first of the issue month. The actual mailing date varies as 
a function of the month, but is generally between the 24th 
and 28th. The Second Class mail, in the US, is supposed 
to get to all points within a week. 

Limerick Contest: Since I have been declared ineligible 
by my staff to officially enter the MICRO limerick contest 
[a most unfair rule I think], I am going to excercise 
editorial perogative, if not editorial judgment, and present 
it here! 

A clever programmer named Mike Rowe, 
Said, "I get double use from each MICRO. 
First I learn what to do 
With my Sixty-Five-Oh-Two, 
Then I use it to paper train my crow! 
[Now, don't you just know that you can do better than 
that? Only a few weeks left to get your entry in.] 
Mike Rowe: The first issue of MICRO, in October 1977, 
contained the following 'biographical' notes about Mike 
Rowe: 'He prefers hexadecimal notation since he has 
eight fingers on each hand', and is a 'Computer consul- 
tant for the Starship Enterprise'. Apparently some readers 
missed the first issue, and/or have never said the name 
out loud and discovered the hidden meaning. Mike Rowe 
is, of course, the name used to indicate that an article has 
been prepared by one or more members of the MICRO 
Staff from material supplied by others. The Software 
Catalog is an example. We have been surprised at the 
amount of mail we get addressed to Mike Rowe. Since 
1977 we have discovered at least three others: Michael 
R 0e _ a subscriber; Mike Rowe Productions — also a 



subscriber; and Mike Rowe who, according to the 
newspaper, is the best stock car driver in Maine. If you 
happen to know of any other 'Mike Rowe', we would like to 
hear about him. 

MICRO Advertising and Advertisers: Advertising is very 
important to MICRO for two reasons: first, it provides 
some very important and timely information about what is 
available, and, second, it supports the magazine. The 
reason that MICRO has been able to grow from 28 to 84 
pages, has been due to the terrific support of the adver- 
tisers. We hope this will continue to grow. You can help. 
All it takes is informing an advertiser that you 'Saw it in 
MICRO'. That's all. Advertisers do not generally have any 
simple way to determine the effectiveness of a particular 
ad. Feedback from the buying public is the most effective 
way of telling an advertiser that his ad is working. So, 
when you place an order, please mention MICRO. 

Reader Feedback: The advertisers are not the only peo- 
ple interested in hearing from you. The MICRO staff 
welcomes reader feedback. What types of material do you 
like best? Which articles have been most useful? Do you 
like the format? How about the three-hole punch? What 
new features would you like to see? Let us know. We want 
to keep MICRO serving its readership effectively. 

Writing for MICRO: MICRO pays top rates for articles. If 
you have good 6502 related ideas, programs, etc., con- 
sider writing about them for MICRO. We have prepared a 
MICRO Writer's Guide to help. For your copy, simply send 
a self-addressed [we'll provide the stamp] envelope re- 
questing the guide. 

Free MICRO: If you are a subscriber and know someone 
who should be receiving MICRO [like the guy who keeps 
'borrowing' your copy], send us his name and address 
along with your subscription label. We will send one sam- 
ple copy. Since this does involve a fair amount of time and 
expense, we would appreciate your only sending in names 
of people who either own 6502 equipment or who you feel 
are seriously interested in the 6502 world. This offer ex- 
pires August 15, 1980, so do it now. 




Emergency MICRO 

Cover Artist 
Terry Spillane 



Graphic Data Retrieval Systems 

This month's cover shows one type of 
Graphic Data Retrieval System: a fire 
department system to keep track of the 
equipment available for meeting various 
emergency conditions. While the con- 
cept is not new or specific to micros, it is 
a technique which can have broad ap- 
plication and which is quite suited to the 
display oriented microcomputers. 

A GDRS basically combines graphic 
data, such as a map, with alphanumeric 
data. In the cover example, a map of the 
section of the city which contains an 
emergency condition, in this case a fire, 
is displayed to quickly show the operator 
the locations of relevant resources: a fire 
station, hospital, police, ambulance, etc. 
The status of each potential resource is 
given as alphanumeric information. As 
the operation progresses, this informa- 
tion can be continually updated either 
manually via a keyboard or, in a fancy 
system, automatically via various 
devices which would track the vehicles. 



This is a very dramatic example of the 
technique. Many other less dramatic but 
nonetheless important uses can be con- 
ceived for GDRS technique. The flow of 
material through any process, from an oil 
pipe line to a auto production facility, can 
be tracked and displayed. The operator 
can 'zoom in' on any particular part of the 
operation which is of interest. The pro- 
gram can automatically display whatever 
portions of the process are most critical 
at any time. 

One of the nice aspects of performing 
a GDRS task on a micro is that the 
graphics do not generally have to be very 
fancy. A simple set of character 
graphics: horizontal, vertical, and 
diagonal lines, can usually provide all of 
the detail necessary. 

The GDRS method can be used to solve 
many different types of problems. Think 
about it application in your areas of in- 
terest. It can be an effective and efficient 
method. 
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Expand with the best 

FOR GRAPHICS... It's MIPLOT, 



MIPLOT Ijy Waianabo (torporauon 



the Intelligent plotter 

Designed for straight forward Interface to 
any microcomputer that outputs the ASCII 
code, MIPLOT can even be used by operators 
with no plotter experience. 

• Incorporates pre-programmed "Intelligent" 
functions required for producing graphs and 
drawings 

• Solid and broken line types can be specified 

• Built in character generator for letters, numbers 
and symbols 

• Characters can be enlarged and rotated to four 
orientations 

• Special printer mode outputs character data as-ls 

• Uses commonly available hard flber-tlp pens 

• Maximum plot speed approximately 2 Inches per 
second 

• Built in self-test mode 

Only $1,200 

at Systems Formulate Corporation 
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FOR CHARACTER GENE RATION... It's the new 

HAL PCG 6500 

Programmable Character Generator 

At last, available exclusively at Systems 
Formulate Corporation Is the HAL PCG 6600, 
a programmable character generator for 
your PET. With the PCG 6600, you can 
program 64 of your own characters into the 
system. Other features: 



Only $800 

ms Formulate Corporation 



• Built In CB2 style sound amplifier 

• Interface to PET/CBM with 24 pin ROMS 

• User program not required for displaying 
characters (only for programming them I 

• Pully Independent of user memory 

• All software needed to write programs using 
programmed characters Included 



FOR MORE MEMORY... 

Whether for Apple, TRS-80, PET or Sorcere, 
you'll like the reliability and price on this 
16K Dynamic HAM Ceramic Package by 

Fujitsu. 

Only $80 

at Systems Formulate Corporation 

*For more Information or to order by phone: (416) 326-9100 

Whatever your system or system expansion needs, give Systems Formulate a call. We will be happy to send 

along mora Information to you or take your phone ordsr. We honor Master Charge. Visa op will ship COD. 

Store Hours: Monday-Saturday. 10-7. Sunday 1Z-6 



k\£) SYSTGMS FORMULATE CORPORATION 



39 Town 9 Country Village • Palo Alto, California 94301 



SYM-1 Memory Search and Display 



Add these two new commands to your SYM Monitor. 
They make it easy to locate any string in memory and 
provide a means to display data as ASCII when desired. 



Nicholas Vrtis 



Here are two more extensions for 
the SYM monitor. They are 
relocatable, and do not use any 
memory other than that normally us- 
ed by the monitor. I decided to write 
these two software "tools" because I 
kept needing them and no one else 
seemed to be writing anything close 
to what I needed. The memory search 
routine was written because I need- 
ed some easy way to find locations 
in programs after I have relocated 
them. I don't have a printer, so after I 
have made a couple of patches and 
moves, it is sometimes difficult to 
find a particular place in the pro- 
gram. The command has also turned 
out to be helpful when you have to 
find references to a particular ad- 
dress so you can change it, as I had 
to do when I got the new monitor 
ROM. 

The memory display routine was 
developed because I needed some 
easy way to look at messages, 
source lines, and other character 
type data in memory. This was 
especially true when I started work- 
ing on a Tiny Basic Intermediate 
Language Assembler some time ago. 
The SYM monitor just doesn't have 
any way of displaying memory as 
characters instead of hex digits, and 
I have trouble recognizing ASCII as 
two hex digits. 

The memory search routine will 
handle up to an eight byte search 
argument. This is normally entered in 
hex after the prompt from the 
routine. If you want, you can enter a 
slash instead of the two hex digits. 
This indicates a "wild" character to 



the program. The definition of a 
"wild" character is that the position 
is counted, but any character is a 
valid match. This does not mean that 
you can't search for a slash 
character. The program will look for a 
slash if you enter it in hex as $2F. 
This means that the search argu- 
ment "20/OC" will find the first oc- 
curance of any jump to a subroutine 
on page $OC, but "202FOC" would 
only find a jump to the subroutine at 
$C2F. This neat little programming 
trick is accomplished with a "byte 
used bit map" (how's that for a three 
dollar phrase?). In simple terms, 
each bit is SCPBUD corresponds to 
one byte in SCPBUF where the 
search key is saved. If the bit is on, it 
indicates that a "wild" character was 
entered in that position. A zero in- 
dicates a normal character. The 
distinction between a slash and $2F 
is actually made by INBYTE. The 
slash is non-hex, so INBYTE returns 
with the carry set. If the overflow is 
set, then the second character was 
the non-hex and it is an error. If the 
equal is set the character was the 
carriage return, and the program 
uses that to mean the end of the 
search argument. Finally, if none of 
the above is true, then the character 
that was entered is compared to a 
slash (INBYTE conveniently leaves 
the character in 'A'). For the slash, 
the carry is rolled into the bit map, 
setting the bit to a one. For normal 
hex bytes entered, the carry is clear 
on return from INBYTE, so when the 
rotate is done, a zero is set into the 
bit. The only other check made on in- 
put is to watch for more than eight 
bytes being entered. The beeper is 



beeped, and the character is ignored 
once eight have been accepted. 

To perform the search, the pro- 
gram moves the bit map to a work 
area, since it will be destroyed in the 
process of the search. Each time we 
want to make a comparison between 
the key and memory, we first rotate 
one bit from the bit map work area in- 
to the carry. If the carry is set after 
the rotate, then the bit was on, and 
the program just pretends it got an 
equal compare. If the carry wasn't 
set, then the search byte is com- 
pared to memory for an equal. Sim- 
ple, isn't it? Each time an unequal is 
found, the search address is in- 
cremented, and the search starts 
from position one of the key again. 

Once the search argument is 
found, it is simple to output the ad- 
dress and then the data from 
memory (not from the search key, 
since it has the slashes in it). 

There are a couple of not so ob- 
vious points to mention. The input 
search key, the key length, and the 
bit map are retained in the SYM RAM 
scope buffer area. This means some 
good news, and some bad news. The 
good news is that provided you don't 
do any output to the LED's, the argu- 
ment will still be there the next time 
you use the routine. Since the U4 op- 
tion with no parameters entered 
starts at the last used location plus 
one, using this option and entering a 
carriage return immediately for the 
search key will find the next oc- 
curance of that string. The bad news 
is that the routine won't work if you 
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are using the hex keypad for entry. 
Actually, the three parameter option 
will work since it doesn't do any I/O 
until after it has hit the end of 
memory, or found the string. The pro- 
blem is that any time you do output 
to the LED's, that character also gets 
rotated into the scope buffer area, so 
the process of entering the search 
key shifts it over. If you are using the 
hex keypad and want to use the 
search routine, you will have to supp- 
ly a 10 byte work area someplace 
else. 

Finally, the value of "end of 
memory" is set to $0F at location 
$211 for my 4K system. If you have 
more or less memory, set this to the 
highest page number in your system. 

As I mentioned earlier, the memory 
display routine is primarily designed 
for displaying ASCII type informa- 
tion. It has also turned out to be 
somewhat useful as a normal 
memory display since it displays 
more bytes per line than does the 
Verify command. Another advantage 
is that it ends with the "OLD" ad- 
dress pointing to the next location 
after the last one displayed. This 
means that repeated calls to the 
command without any argument will 
continue displaying memory. 

The display format is a typical 
dump format. Sixteen bytes of data 
are displayed, first in hex, and then 
as alpha. Before the alpha is output, 
though, it is checked to make sure 
that it is a displayable character. As 
written, this program translates con- 
trol characters, lower case character, 
and anything with the high order bit 
on, to an underscore. On some ter- 
minals this will display as the back- 
arrow. The purpose is to occupy a 
position with displayable characters 
so you can count how many 
characters in you are from the start 
of the line. If your terminal will 
display lower case, you may want to 
change location $30C to the highest 
displayable character for your ter- 
minal (lower case z is $7A). I would 
not recommend by-passing the 
translation of the control characters. 
At best, most terminals don't even 
print a space in their place, and at 
worst, they do unexpected things 
which make reading the line difficult. 

For those of you who have put up 
the other monitor extensions from 
my article in the August issue, these 



routines can be added very easily. 
Simply change the address in the 
JMP U1 instruction that was at $237 
in the listing, to a JMP U4 where U4 
is the address that the new routines 
are moved to. Then change this pro- 
gram at $2AE to insert a JMP U1 in 
place of the SEC-RTS-NOP, and 
presto!— you have two new exten- 
sions. Both routines U4 and U5 are 
relocatable, so you don't have to 
bother running them through 
Relocate. Just block move them to 
where you want them. I moved them 
to the front of the Execute setups so 
I wouldn't have to learn a new star- 
ting address. 

For those of you who didn't read 
the article, I will review some of the 
comments about how to extend the 
SYM monitor. First let me say that 
these routines are relocatable, with 
the only provision being that they 
must be in the same relative position 
to each other, or the branch at $268 
will have to be adjusted. If you 
decide to only use U4, change the 
above location to a SEC-RTS ($3860). 
The U5 routine will operate by itself 
without any changes. As I mentioned 
before, these routines use only those 
memory locations normally reserved 
for the monitor, so they shouldn't 
conflict with your existing programs. 
Nor will they affect the operation of 
any of the SYM commands, with the 
exception that the 'OLD' address 
that is referred to in the manual will 
get changed by these commands in 
additon to the standard commands. 

The SYM monitor vectors all 
"unrecognized" commands via a 
RAM vector located aat $A66D. The 
monitor considers anything it isn't 
programed for as unrecognized. 
Normally, $A66D points to an SEC- 
RTS sequence. This indicates to the 
routine ERMSG that the ER xx 
message should be printed. By the 
way, the xx is the hex digits for what 
is in 'A' when ERMSG is called, so 
this makes a handy error routine for 
your oun programs. Since 
SYNERTEK was nice enough to put 
this vector in Ram, it can be chang- 
ed. Specifically in our case if it is 
changed to point out the starting ad- 
dress of U4, the monitor will branch 
there instead of to the SEC-RTS. If 
you will note, these routines ex- 
ecute and SEC-TRS whenever they 
encounter an error, or the command 
is not the cash value for U4 or U5. 
For a normal return, they have to 



make sure the carry is clear or the 
error message would get printed. 



The monitor routines used in these 
programs are normal labels as defin- 
ed in the cross reference listing for 
the monitor. In order to possibly save 
some of your sanity when you look at 
the code, I will mention that the 
parameter input areas are not 
numbered the way you would expect. 
The monitor always accepts input in- 
to the P3 area, and each time a new 
parameter is entered, it shifts the 
whole area up 16 bits. This means 
that if only one parameter is entered, 
it ends up in the P3 area, not in P1 as 
you would expect. For two 
parameters, the first parameter is in 
P2, and the second in P3. For three 
parameters, the numbers come out 
right. It gets sort of confusing the 
first time you try to figure it out, and 
those are not memory locations you 
can use any of the commands to look 
at, since the monitor zeros them out 
at the start of each command. 

These routines were written for 
version 1.1 of the SYM monitor, 
which is a little different from version 
1.0. In V1.0, both unrecognized com- 
mands and syntax errors (i.e. non-hex 
digits) were vectored through $A66D, 
not just the unrecognized commands 
as in V1.1. This means that if you 
have V1.0 you have to check to make 
sure that you are not there because 
of a syntax error. In order to make 
these work for version 1.0, insert the 
following just before U4 and make it 
the address that goes into $A66D: 

CD 57 A6 CMP LSTCOM 

See if command terminated properly 
F0 02 BEQ U4 Branch if OK 

38 SEC F |s e set the error flag 

60 RTS and return to the monitor 

This will take care of things for both 
U4 and U5. People who already have 
my other extensions up won't have 
to bother, since UO already check 
for this condition before it does 
anything else. 

The sixteen bit checksum for 
$200-$31F is$8F1B. 



/* 
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MICRO — The 6502 Journal 



July 1980 



SUA" - V2.1 (03/791 
LOC OBJECT-- - 



loc 

000" 

0000 
0200 



OBJECT 



ST»T 

00001 
00002 
00003 
00004 
0OOP5 
000 n fi 
00007 
OOOOR 
00009 
00O10 
00011 
00012 
00013 
00014 

STMT 

00016 

00017 
00018 



U4 - MEM 



********** 
* SYM-l US 

* 
* 
* 

* 
* 
* 
* 
* 

* 



6502 ASSEMBLER - SUA* II VERSION 



************************************************************* 
ER MONITOR FUNCTION EXTENSIONS * 



PARMS 
PARM 
PAPMS 
PARMS 
- OIS 
PARMS 
PARM 
PARMS 



SEARCH FROM *CURAD»l* TO -END OF MEMORY- 
SEARCH FROM PARM 1 TO 'END OF MEMORY* 
EARCH FROM PARM 1 TO PARM 2 



PLAY 



SEARCH FOR PARM 1 AS AOORESS FROM PARM 2 TO PARM 3 
Al 



Alpha memory 

display 1 line from 'curat 

display 1 line from parm 1 

display from parm 1 to parm 



************************************************************* 



SYM-l MONITOR EXTENSION ROUTINES 

TEXT ***♦• OBJECT CODE OF SYN-1 MONITOR EXTENSIONS ******* 
TEXT ***** INITIALIZATION MONITOR COMMANDS ******* 

ORG $200 



0"FF 

ooFr 

OOFC 
IOC 

O'oo 



OOO'O **************************************»************************•*******, 

8831^ :.S**.*II*2*ft225ll2**2..Ii2*S**..*****.****.*************************** 

00074 CURAO FQU *FE SYN-1 *01D* AOORESS 

00075 ADjUSTMT FOU *FC SVN-1 SCRATCH PAGE ZERO AREA 

00076 PZSCR FOU $FC SYM-l SCRATCH PAGE ZERO AREA 



08JECT 



STMT 

00078 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
000->9 
00040 
00041 
00O42 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 



U4 - MEMORY SEARCH SYM-l MONITOR EXTENSION 

TEXT ********** U4 MEMORY SEARCH SYS-l EXTENSION ********* 
********************************************************************** 
* U4 MONITOR EXTENSION FOR THE SYM-l — MEMORY SEARCH , . .-,- 

********************************************************************** 

* 
* 
* 
* 

* 



BY: N. VRTIS - LSI/CCSD 

ACTION OEPENOS ON NUMBER OF PARMS ENTERED „_-«.„. 

PARMS SEARCH FROM *CURAD»1* TO 'END OF MEMORY' 

1 PARM SEARCH FROM PARM I TO 'END OF MEMORY* 

2 PARMS SEARCH FROM PARM 1 TO PARM 2 „ 

3 PARMS SEARCH FOP PARM 1 AS ADORESS FROM PARM 2 TO PARM 3 



NOTES: 
1) 

?! 



EXCEPT FOR THF 3 PARM OPTION, A SLASH ENTERED AS A SLASH 

INSTEAD OF HEX 2F WILL BE CONSIDERED A 'WILD CHARACTER* 

IF NO SEARCH AR5UEMENT l5 ENT§REO, THE VALUES FROM LAST TIME 

3) THIS ROUTINE*USES THE SYSTEM RAM SCOPE BUFFER FOR SCRATCH 

ARFA, SO IT HILL ONLY WORK WITH A TERMINAL UNLESS ANOTHER 
SCRATCH AREA IS PROVIOEO. 

********************************************************************** 



CO" 


r.q 


18 




02">? 


no 


64 




0?o4 


FO 


01 




0706 


90 


08 




0708 


oo 


17 




070A 


?n 


47 


87 


0?on 


20 


BF 


37 


0210 


A «J 


OF 




0712 


80 


4R 


46 


0215 


TF 


4A 


a6 


0218 


70 


82 


32 


02'8 


FO 


20 




0710 


90 


I F 




071F 


18 






0270 


60 






0771 


84 






077? 


20 


9C 


82 


0775 


C9 


at 




0277 


FO 


14 




0279 
077C 


AD 


4F 


46 


80 


00 


46 


027P 


40 


4F 


46 


0737 


80 


01 


46 


0735 


A9 


00 




0737 


B5 


FC 




0739 


a? 


07 




LOC 




-orjf:t 


0738 


00 


20 




073D 


A7 


00 




073C 


86 


FC 




0741 


20 


40 


■n 


0'** 


49 


3F 




0746 


70 


47 


84 


0*49 


70 


09 


31 


074C 
074F 


80 


OC 




FO 


08 




0?50 


80 


10 




0257 


90 


00 


46 


0755 


26 


Fr 




0757 


E8 






0758 


00 


FF 




0'5A 


70 


06 




075C 


FO 


oc 




p->5C 


C9 


7F 




0760 


FO 


P3 





00052 1J4 

O0OR3 

00054 * 

00085 

000*6 

00057 

00058 

00059 

00060 NOPRMS 

00061 

00067 

00063 

00064 

00065 

00066 

00067 

00068 TRYNXT 

00069 

00070 

00071 

00072 * 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

ST"T 

00080 

00081 * 

00082 GFTARG 
00083. 
00084 
00085 
00086 

00087 GALOOP 
00088 
00089 
000°0 
00091 

000°7 ROLLIN 
000°3 
00094 

00095 NONHFX 
000°6 
00097 
00098 



CMP 
8NE 

CPX 
BCC 
8NE 
JSR 
JSR 
LOA 
STA 
OEC 
JSR 
8E0 
BCC 

etc 

RTS 
TXA 
JSR 

CMP 
3E0 

I DA 
STA 
LDA 
STA 
LOA 
STA 
LOX 



»$18 
T0U5 

• 1 

NOPRMS 
TRYNXT 
P3SCR 
DECCMP 

• SOF 
P3H 
P3L 
INCCMP 
GETARG 
GETARG 



P2SCR 
12 

GETARG 

SCPBUF 

P1H 

SCPBUF+1 

•$00 

PZSCR 

• 2 



CHECK FOR *U4* COMMAND 

TRY NEXT COMMAND IF NOT THIS ONE 

SEE HOW MANY PARMS 

BRANCH IF ZERO PARMS 

OR IF MORE THAN 1 

MOVE STARTING ADORESS TO *CURAD" 

BACKUP 1 SO INC COMES OUT OK 

ZERO PARMS - USE HIGHEST RAM AOOR. 

MAKE LOW ORROER ■ $FF 

BUMP CURAO BY ONE 

GET SEARCH IF NOT AT ENO 

DONE IF ALREADY TO ENO OF MEMORY 

RETURN TO MONITOR 

PRESERVE * OF PARMS ENTERED 

P2 AREA HAS *FROM* FOR 2 E 3 PARMS 

CHECK WHICH 

GET ARGUEMENT IF 2 PARMS 

ELSE MOVE PARM1 TO SEARCH KEY 



INDICATE BYTES USED 
MAKE X«2 AS LENGTH 



U4 - MEMORY SEARCH SYM-l MONITOR EXTENSION 

AND WE HAVE THE PARM IN NOW 



8NE GOTCR 



LOX 
STX 
JSR 
LDA 
JSR 
JSR 
«CS 
rpx 

BCS 
STA 
ROL 
I NX 
8NE 
BVS 
8E0 

r.MP 

«E0 



*0 

PZSCR 
CRLF 
*•>• 

OUTCHR 
INBYTE 
NONHEX 

BAOY 

SCPBUF, X 
PZSCR 

GALOOP 

BAOY 

GOTCR 

»•/• 

ROLLIN 



NUMBER OF BYTES ENTERED 
SET TO ALL BYTES USED 
START ON A NEW LINE 
DISPLAY PROMPT 

GET SEARCH INPUT 

NEED TO CECH FOR / IF NON-HEX 

SEE IF GOT ENOUGH ALREADY 

CAN'T HANDLE ANY MORE 

ELSE SAVE THE BYTE 

ROLL CARRY INTO BYTES USEO 

BUMP FOR NEXT ONE 

UNCONDITIONAL 

IF SECOND IS NON-HEX IT IS BAD 

BRANCH IF IT WAS CARRIAGE RETURN 

ELSE CHECK FOR A SLASH 

IF YES - CARRY IS SET FOR ROLLIN 



0262 


20 


7? 


RO 


0765 


1 P 






■yf.(> 


10 


El 




0'68 


00 


40 




I'M 


cn 






"26R 


30 


OR 




0260 


RF 


l r 


r6 


02»0 


4^ 


FC 




02T? 


nn 


IE 


*6 


0? T 5 


sr 


IF 


46 


"7T8 


90 


IF 


16 


027R 


R* 


FC 




0?7n 


6*i 


F<~ 




02 TC 


R" 


07 




02" I 


"1 


FC 




o?p-> 


09 


00 


46 


0286 


no 


19 




O'BB 


RR 






0289 


I" 


P2 




02RB 


20 


16 


93 


02RE 


20 


4? 


83 


029! 


C8 






0292 


Rl 


FF 




029* 


'0 


F» 


82 


0297 
029B 


rp 






cr 


IF 


A6 


029R 


90 


F5 




02O0 


FO 


F3 




02°F 


1R 




- 


024" 


60 






m 


§3 


gl 


92 


02*6 


FO 


CO 




924R 


lfl 






02*9 


60 






0244 









0'44 


T9 


10 




024C 


FO 


03 




"2AF 


TR 






0?AF 


60 






0?R0 


F4 






028' 


Pi 


0? 




02°-« 


FO 


?•> 




02«5 


BO 


F7 




0287 


FO 


01 




07°9 


FO 


OA 




02BR 


a* 


FF 




0280 


on 


44 


46 


02 r ^ 


4«> 


FF 




02C? 


fl" 


4R 


46 


n->r ^ 


20 


47 


R? 


02C8 


1R 






020 


A* 


FF 




92m 


60 


10 




02CD 


BO 


4A 


A6 


0200 


90 


OR 




0?T> 


EC 


4R 


A6 


0206 


00 


06 




0207 


20 


9n 


82 


0204 


20 


93 


R? 


0200 


20 


16 


R3 


02F0 


A2 


10 




02F2 


45 


FF 




02E4 


48 






oTf7 


AS 
48 


FF 




02E8 


20 


42 


R3 


92FP. 


AO 


00 




02FD 


Rl 


FF 




02FF 


'0 


F« 


R? 


92 c 2 


20 


3» 


»2 


0?F5 


RO 


03 




02F7 


C4 






0?FB 


0" 


EF 




02r4 
02F0 


13 


3F 


R3 


02FF 


85 


FF 




0300 


6P 






0301 


8* 


FC 




03""? 


42 


10 




0305 


Rl 


FF 


- 


0307 


^Q 


20 




0-*09 


90 


04 




030B 


C° 


5R 




0300 


90 


02 




03" c 


S° 


5F 




0311 


20 


47 


RA 



00099 


RADY 


JSR 


BEEP 


00100 




CLC 




00101 




8CC. 


GALOOP 


00102 


* 






^01' , 4 


T0U5 

* 


BNE 


U5 


001O5 


SOTC 


OEX 




00!"6 




BH! 


EACHST 


00107 




STX 


SCPSTL 


00108 




1 OA 


P7.SCR 


00109 




STA 


SCPBUD 


00110 


• 






00111 


EACHST 


LOY 


SCPSTL 


00112 




LDA 


SCRBUO 


00113 




STA 


PZSCR 


00114 


F4CHCH 


ROR 


RZSCR 


00115 




BCS 


ISMTCH 


00116 




LOA 


(CURAD), Y 


00117 




:mp 


SCPBUF.Y 


0011 8 




BNF 


NOMTCH 


00119 


ISMTCH 


OEY 




00120 




BPL 


EACHCH 


%%\Vk 


* 


JSR 


CRLFSZ 


00123 




JSR 


SPACE 


00124 




I NY 




00125 


OUTLOP 


IDA 


(CUR AD) ,Y 


00126 




JSR 


OUTBYT 


00127 




1NY 




00128 




CPY 


SCPSTL 


00129 




BCC 


OUTLOP 


00130 




BEO 


OUTLOP 


00131 




CLC 




0013? 




RTS 




00133 


* 






00134 
00135 


NOMTCH 


m 


INCC MP 
EACHST 


00136 




BEO 


EACHST 


00137 




CLC 




00138 




RTS 




00140 




TEXT 


********** 


00141 


************************** 


00142 


* 115 MONITOR EXTENSION FOR 


001'3 


A************************* 


00144 


* 






00145 


* BY: N. 


VRTIS 


- LSI/CCSD 


00146 


* 






00147 


* ACTION 


; 


SIMULAR TO 


00148 


* 




ADDRESS AFT 


00149 


* "ARMS 


DISPLAY 1 L 


00150 


* 1 PARM 




DISPLAY 1 L 


00151 


* 2 PARIS 


DISPLAY FRO 


00152 


* 






00153 


************************** 


001*5 


115 


CMP 


#*19 


001*6 




«E0 


U5STRT 


001*7 


* 






001*8 


U5FR" 


SEC 




00159 




RTS 




00160 




N0» 




00161 


* 






00162 


U5STRT 


CPX 


*2 


00163 




BEQ 


PRMS2 


00164 




RCS 


U5ERR 


00165 




CPX 


HI 


00166 




RFO 


PRMS1 


00167 


* 






00168 




1 OA 


CURAD 


"0169 




ST4 


P3L 


00170 




LD4 


CURAD*1 
P3H 


00171 




ST* 


0017? 


PRMS1 


JSR 


P3SCR 


00173 




CLC 




00174 




L04 


CURAD 


001^5 




»0C 


• 16 


001-»6 




ST4 


P3L 


00177 




RCC 


DOOUT 


00178 




INC 


P3H 


00179 




BNE 


DOOUT 


00180 


PRHS2 


JSR 


P2SCR 


00181 




JSR 


INCP3 


00182 


* 






00183 


ooout 


JSR 


CRLFSZ 


00184 




I.OX 


*16 


001P5 




L04 


CURAD 


001B6 




PHA 




00187 




LOA 


CURADH 


00188 




RHA 




00189 
001°0 


* 






ANOTHR 


JSR 


SPACE 


00191 




LOY 


no 


00192 




LDA 


(CURAD). Y 


001"3 




JSR 


OUTBYT 


00194 




JSR 


INCCHP 
LASTPT 


001°5 




BCS 


001°6 




OEX 




00197 




BNE 


ANOTHR 


001°8 


• 






%%\ll 


IASTOT 


JSR 

PLA 


SPC2 


00201 




STA 


CURAD*1 


0020? 




»LA 




00203 




STA 


CURAD 


00204 




LOX 


•16 

(CURAD), Y 


00205 


A SCOUT 


LDA 


00206 




CMP 


»$20 


00207 




BCC 


MAKSPC 


00208 




CMP 


#»5B 


00209 




BCC 


OKDO 


00210 


MAKSPC 


LDA 


• $5F 


00211 


OK 00 


JSR 


OUTCHR 



ERROR CHARACTER BEEP THE BEEPER 

CLFAR CARRY 

TO FORCE BRANCH 

JUST PASSING THROUGH ON WAY TO U5 

SEE IF GOT ANY SEARCH CHARACTERS 

BRANCH IF NOT 

ELSE SAVE STRING LENGTH 

MOVE BYTES USED TO HOLD AREA 



START OF TAIL END OF STRING 
MOVE BYTES USED MAP TO WORK AREA 

ROLL 1 BIT OF MAP INTO CARRY 

IF ON IT WAS A SLASH AND IS MATCHED 

OTHERWISE 

COMPARE SEARCH KEY TO THIS BYTE 
BRANCH IF NOT A MATCH 
GOT A MATCH - NEXT SEARCH CHAR 
CONTINUE IF MORE IN STRING 

ELSE OUTPUT AOORESS OF START 

PUT Y BACK TO ZERO 

LIST THE CHARACTERS FOUND 



DON'T FORGET THE LAST BYTE 

CLEAR CARRY 

AND RETURN TO MONITOR 

NO NATCH -BUMP TO NEXT START AOORESS 
CONTINUE SEARCH IF MEMORY LEFT 

ELSE RETURN TO MONITOR 

U5 - DISPLAY MEMORY SYM-l EXTENSION ****** 
••**••*•*******••****••*••*•**•****•******•• 
THE SYM-I — DISPLAY ALPHA MEMORY 

t ************************************* ****** 



SYM 'VERIFY', EXCEPT 'OLD' POINTS TO NEXT 

ER THE COMMAND. 

INE FROM 'CURAD' 

INF FROM PARM 1 

M PARM 1 TO PARM 2 

A******************************************* 



CHECK FOR U5 HASH COOF 
BRANCH IF YES 

RAISE THE ERROR FLAG 

AND RETURN TO MONITOR 

SO ABOVE CAN BECOME A JMP 

CHECK FOR 2 PARMS 
BRANCH IF YES 
MORE IS TOO MANY PARMS 
HOW ABOUT I PARM 
BRANCH IF YEP 

GEE - MUST BE PARMS 
MOVE CURRENT ADDRESS TO P3 

AND FALL THROUGH AS IF 1 PARM 
HOVE STARTING ADDRESS TO P. I. 
COMPUTF 1 BYTE PAST ENDING ADDRESS 

***** BYTES PER LINE HERE ********* 

DONE IF NO CARRY 

ELSE TAKE CARE OF CARRY 

AND THEN OONE 

2 PARMS HAS STARTING IN P2 - END=P3 

BUMP FND BY 1 FOR COMPARE 

START ON A FRESH LINE 

***** BYTES PER LINE HERE ********* 

SAVE STARTING ADDRESS 

WILL NEED IT LATER 



SPACE BETWEEN CHARS 

MAKE SURE REGISTER IS ZERO 

6ET A BYTE OF DATA 

THIS TIME IT IS OUTPUT AS HEX 
BUMP TO NEXT BYTE 
DO ASCII PART IF TO END 
ELSE COUNT BYTES THIS LINE 
DO ANOTHER IF ROOM LEFT 

RESET CURAO BACK TO START 



***** BYTES PER LINE HERE ********* 

GET CHARACTER TO GO AS ASCII 

MAKE SURE NOT CONTROL 

MAKE IT SPECIAL IF SO 

AS SHOULD DO FOR LOWER CASE 

BRANCH IF NOT SPECIAL 

INSERT FILLFR CHARACTER 

OUTPUT THE ASCII 



031* 20 82 

0317 no 05 

0310 C» 

031* DO E9 

03! C FO 3F 



«-> 



031 c 
031 F 
031 c 

i or 



8109 
8293 
829C 
82A7 
828? 
8?«F 
82FA 
8316 
833^ 
8342 
8340 
897' 
88*7 

A 600 
461 F 
A61F 
A644 
8648 
464C 
4640 
464F 
464F 



18 
60 



OBJECT 



00212 
00213 
00214 
00215 
00216 

00217 * 

00218 U50PNE 
00219 
00220 PGMEND 

ST«T 



JSR 

RCS 
OfX 
8NF 
BEO 

rtc 

»TS 
FOU 



INCCMP 
U5D0NE 

A SCOUT 

DOOUT 



*-l 



BUMP TO NEXT BYTE 

?ONE IF NOW TO THE END 
LSE NEXT BYTE 
SAME LINE IF NOT TO END 
ELSE START A NEW LINE 

CLEAR ERROR FLAG 

AND RETURN TO MONITOR 

END OF PROGRAM ADDRESS MARKER 



SYM SYSTEM ADDRESS ANO ROUTINES 



002 22 *********************************************************************** 

00223 * SYM SYSTME ROUTINE ENTRY POINTS AND RAM ADDRESSES * 

00224 *********************************************************************** 



00226 
00227 
00228 
00229 
00230 
00231 

83151 

00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 



IN8YTF 

INCP3 

P2SCR 

P3SCR 

INCCMP 

OFCCMP 

OUTBYT 

CRLFSZ 

SPC2 

SPACE 

CRLF 

BEEP 

OUTCHR 

******* 

SCPBUF 

SCDBUD 

SCPSTL 

P3L 

P3H 

P2L 

P2H 

P1L 

P1H 



FQU 
FQU 
FQU 

FQU 
FQU 
FQU 
FQU 
FQU 
^OU 
FQU 
FQU 

FQU 

****** 

FQU 
FOU 
FQU 
FQU 
FQU 
FOU 
FQU 
FQU 
FQU 



*81D9 
$8293 
t829C 
$82A7 
S82B2 
*82BE 
$82FA 
18316 
J833F 
$8342 
J834D 

mi* 

********* 

*A600 

SA61E 
*A61F 
*A64A 
JA64B 
*A64C 
*A64D 
*A64E 
J464F 



INPUT 2 HEX DIGITS INTO 'A' 
INCREMENT P3 BY 1 
PUT PARM2 INTO 'CURAD' 
PUT PARM3 INTO 'CURAO' 
BUMP 'CURAD" C COMPARE TO PARM3 
SUBTRACT 1 FROM 'CURAD* 
PRINT A 12 HEX DIGITS! 
OUTPUT CR/LF AND 'CURAD' 
OUTPUT 2 SPACES 
OUTPUT 1 SPACE 
OUTPUT CR/LF 
TOOT THE ONBOARD BEEPER 
OUTPUT ASCII FROM "A* 
•*•**•**••••*****••••*••*•****••***••******•***** 
SCOPE OUTPUT BUFFER AREA 
BYTES USED BIT MAP 
SEARCH STRING LENGTH 
INPUT PARAMETER VALUES 



FNO "F PASS ?-E">Rn°S= 00000 ************************************************************************ 
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delves into CICS and communication somewhat. 
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Quick Printer II hooked up through the TTY pot on the 
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6502 ENTHUSIASTS 

A NEW KIT THAT GETS YOU INTO G 

SERIOUS MICROCOMPUTING FOR ONLY ° 



Z $1495.00 Kit 



$1695.00 Assembled = 



= > 6502 CPU & DISK CONTROLLER CARD 

= > 16K RAM CARD 

1 > 90K MINIFLOPPY DISK DRIVE 

5 > DOS, 8K BASIC, ASSEMBLER/EDITOR 

= > 8 SLOT MOTHERBOARD 

1 > CHASSIS, POWER SUPPLY, & CABLES 

a > MICRO— TERM ACT— I SERIAL TERMINAL 

16 X 64 CHARACTER DISPLAY 

Upper/Lower CASE 
5 ADDRESSABLE CURSOR 

i > GOLDSTAR TV/MONITOR 

HIGH QUALITY DISPLAY 
TUNER INTACT 

Prices in last month's issue 

were in error. 

Master Charge 

VISA 

C.O.D. 

1 Industries Inc. 
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Programming and Interfacing 

the 6502, 

With Experiments 

By Marvin L. DeJong 

An introductory text book that teaches you the fun- 
damental concepts of machine language programming 
and Basic interfacing techniques. 

Available for $13.95 from: 

Howard W. Sams & Co., Inc. 
4300 W. 62nd Street 

P. O. Box 7092 

Indianapolis, IN 46206 

(317)298-5400 




Introducing AppleSeed, our 
newest publication to whet 
your Apple* appetite! 

We invite you to subscribe to AppleSeed - the 
magazine that is to the Apple II* what SoftSide is to 
the TRS-80**. It offers the newest in software pro- 
gramming hints and ideas tailored especially for 
your computer. AppleSeed features challenging pro- 
grams for both the do-it-yourselfer and the in- 
dividual interested in pre-packaged programs and 
games . . . your own preview of the best available on 
the market today. A typical slice of AppleSeed con- 
sists of one major (new 16K) commercial level pro- 
gram (completely listed for your keying pleasure), 
accompanied by two or three applications for prac- 
tical use or fun, supplemented by informative ar- 
ticles to polish your Apple*. Get right to the core of 
your Apple* needs and order AppleSeed today! 12 
issues, 1 year, $15.00. AppleSeed is the newest 
member of . . . 



_5ofE5i3ei 

PUBLICATIONS 

6 South Street, Mlllord, NH 03055 
(603) 873-5144 



•A registered trademark ol Apple Computers. "A refjlatered trademark ol Radio Shack and Tandy Corp. 



Sorting Revealed 



A truly fresh approach to understanding the basics of 
sorting. In addition to a particularly lucid discussion of 
various sorting methods, programs are presented which 
demonstrate the sorting algorithms in action. 



Richard C. Vile, Jr. 



It has often been said that a pic- 
ture is worth a thousand words. Sad- 
ly, this maxim is frequently ignored 
by professional educators, especial- 
ly when dealing with such bone-dry 
subjects as mathematics and com- 
puter science. This article will pre- 
sent a detailed example of the use 
of a simple, yet effective, visual 
technique for giving insight into the 
basis for certain algorithms. Our ap- 
proach will be to show the algorithm 
in action. Our medium will be the 
Apple II personal computer, but any 
computer which provides a memory- 
mapped display will do. The vehicle 
for the demonstration will be one of 
the staples of the computer science 
curriculum — the joy of pedants and 
the bane of poor benighted students 
— viz. sorting algorithms. 

Sorting Theory 

Unfortunately, we must stoop to 
pedantry to begin with. The reader 
who is already well-versed in sorting 
lore may skip directly to Sorting Im- 
plemented. 

Sorting is such a varied and vast 
topic that large portions of entire 
books have been devoted to it. 
Perhaps the best known compen- 
dium of sorting facts and theory is 
to be found in Knuth's robust 
volume Sorting and Searching (The 
Art of Computer Programming Vol. 
111, Addison Wesley, 1973). Our 
demonstration will be limited to just 
a few of the better known sorting 
algorithms, although the techniques 
could be applied to others as well. 
We shall provide programs that 
allow the visualization of five dif- 



ferent sorting algorithms: bubble 
sort, Shell sort, insertion sort, selec- 
tion sort, and quicksort. Of these, 
we shall discuss the bubble sort 
and quicksort in some detail prior to 
the presentation of the programs. 
Details of the others may be found 
in almost any good introductory 
computer science text, as well as in 
most texts on data structures. 

Apart from the specific details of 
the algorithms used, the theory con- 
nected with sorting deals with effi- 
ciency. When people who are "in the 
know" discuss sorting, they will fre- 
quently bandy about certain ter- 
minology which they don't bother to 
explain. In hopes of increasing the 
number of cognoscenti involved in 
such discussions, we shall now at- 
tempt to lay out some of the more 
common terms for you. 

To simplify matters somewhat, let 
us assume that all of our sorting will 
take place entirely in memory. Sor- 
ting methods that involve storing in- 
termediate stages on disk files or 
magnetic tape, so-called external 
sorts, will be beyond our scope, 
although presumably not beyond 
our ken. The objects to be sorted 
will be assumed to be numbers, 
either integer or floating point, 
stored in memory in an array of one 
dimension and of a given size. The 
size of the array being sorted will be 
a hit personality throughout the 
discussion, so we give it a name. It 
will be denoted by N. 

Number of elements to sort = N 



of the definitions to be aiven later, it 
is necessary to indulge, in a bit of 
mathematics. We shall need to 
understand two functions. In par- 
ticular: 

Log2X = base 2 logarithm of x 
Lxj = floor of x 

Actually, we are interested in the 
combination of these functions as 
applied to the friendly value N: 

Uog 2 Nj 

i.e. the floor of the base 2 logarithm 
of N. Before you run screaming to 
the nearest math anxiety clinic, at 
least read the next few sentences of 
explanation. 

Suppose you have a pile of N 
coconuts (why coconuts, you ask? 
Why not, we reply!). Think about the 
following process: 

1. Subdivide the pile into two piles 
which are as nearly equal in size as 
possible. 

2. Take the smaller of the two piles 
from step 1. If it consists of one 
coconut, then stop. Otherwise, 
repeat from step 1. 

Now how many times did you do 
step 1? The answer is the value of 
[log2 N]l So, without worring about 
picky details, the floor of the base 2 
logarithm of N is the number of 
times you can divide N by 2 and still 
retain a non-zero quotient. Figure 1. 
pictures a simple case. 



In order to fully comprehend one An alternate way of thinking about 
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the situation involves collecting 
coconuts. The procedure is as 
follows: 

1. Begin with a single coconut. 

2. If doubling the number, k, of 
coconuts which you already have 
would cause your total to exceed N 
coconuts (2k is greater than or equal 
to N), then stop. 

3. Collect k more coconuts, giving 
you 2k, and repeat step 2 now think- 
ing of the new total as the value of k. 

Now how many times did you ex- 
ecute step 3? The answer will again 
be [log2 N]. Before you go on, try to 
convince yourself (without flying to 
Tahiti to collect real coconuts),the 
two procedures yield the same 
result. 

We shall return to this value, the 
"coconut number", later. 

In order to talk about the efficien- 
cy of any algorithm, we need some 
quantities that we can measure. For 
sorting algorithms, we concentrate 
on two: the number of comparisons 
and the number of interchanges. 

A comparison occurs whenever a 
member of the collection of 
numbers is compared to something 
else. The something else could be a 
value fished out of a hat, or it could 
be another member of the collec- 
tion. Thus, a statement such as IF 
A(l) > A(l + 1)THEN...counts as a 
comparison, as well as IF A(l)> 
MAX THEN... 

An interchange occurs whenever 
a member of the collection of 
numbers is moved from one place to 
another in the computer's memory, 
and possibly some other number 
takes its place. The classic inter- 
change may be described by the se- 
quence of three statements: 

TEMP =A(I) 

A(l) = A(J) 

A(J) = TEMP 

(assuming, ofcourse, that l*J). Not 
all sorting algorithms use this 
classic form, but there is usually an 
easily identified interchange step 
whose repetition we can count. 

Trying to count the number of 
comparisons and/or interchanges 
which take place during the course 
of execution of a sorting algorithm 
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Step 1. was performed 2 times. 
Therefore, 

Llog, 5 J = 2 



will give an approach to measuring 
the efficiency of that algorithm. In 
addition to comparisons and inter- 
changes, there will also be overhead 
involved in a sorting algorithm: i.e. 
the computing time used in loop 
control, recursion, etc. This is more 
difficult to measure theoretically 
and is therefore usually deduced 
from empirical observations. 

Being armed with a few ter- 
minological weapons, we may now 
attack some of the more familiar 
sorting buzz phrases. Assume we 
are speaking of the number of com- 
parisons made during the execution 
of some sorting algorithm. Then we 
may speak of an N 2 sorting 
algorithm (pronounced N-squared). 
This means that "on the order of" N 
times N comparisons will be made 
in the course of sorting an array of 
size N. Well, that was relatively 
painless — at least as a definition! 
The interesting (painful) part comes 
when we try to prove that a given 
algorithm is an N 2 algorithm. We 
shall get to that in the next section. 

Another phrase which is frequent- 
ly encountered when casually "talk- 
ing sorts" is: that's an N log N sort 
(pronounced N log Nl). What that ac- 
tually means is that the expected 
number of comparisons in carrying 
out the sorting algorithm for an ar- 
ray of size N is: 

N * ([log 2 ND 

That is, N multiplied by the coconut 
number. Again, this is easy enough 
to say, but perhaps a .bit harder to 



Figure 1 

appreciate than the N^ description. 
After all, why should we be concern- 
ed with these numbers, and what is 
the significance of the difference 
between them? 

Consider briefly, Table 1. It shows 
values for N, N 2 , [log2 N], and N* 
[log2 N].Assumingthat overhead is 
relatively constant, or at least 
negligible from one algorithm to the 
next, we see that there is an ever in- 
creasing difference between N 2 
and NIogN (from now on, we 
assume that logN means [log2 N]). 
To make the comparison more con- 
crete, let us assume that a com- 
parison costs .001', and that we 
need to sort an array containing 
1,048,576 numbers. Using an N 2 
sort will cost $10,995,116.27, 
whereas using an NIogN sort will 
only put us out $209.72 Of course, a 
single comparison of two numbers 
on today's monster computers-or 
"big iron" as they are sometimes 
referred to in the trade- costs con- 
siderably less than. .001*. But even 
at .0000001* per comparison - a rate 
of 10,000,000 comparisons per 
penny- the cost differential will be 2' 
for the NIogN sort-$1, 099.51 for the 
N 2 sort! With that kind of com- 
parison, you can see why no com- 
mercially viable sorting package is 
going to use the N 2 sorting ap- 
proach. 

Some Sorting Algorithms 

We now present two of the more 
well known sorting algorithms in 
some detail. We will attempt infor- 
mally to prove that the first is an N 2 
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algorithm. The second algorithm 
discussed is an example of an 
NIogN algorithm, but we shall spare 
the reader any attempts at proof. 

Bubble Sort 

This algorithm is probably the 
most widely known and loathed by 
students of introductory computer 
science. Many an instructor has 
droned on about its properties to 
unwilling students of FORTRAN! 
For many of these students, it is 
their only taste of the vast menu of 
sorting techiniques. 

We assume that N elements, 
which we shall denote by A(1), 
A(2),..., A(N), are to be arranged in 
ascending order; in short, sorted. 
The bubble sort operates by making 
repeated "sweeps" through the ar- 
ray, causing various elements to 
"bubble — up" in the process. We 
shall see that for each sweep, at 
least one element is guaranteed to 
be positioned in its correct final slot 
in the array. 

The heart of each sweep is the 
idea of comparing two adjacent en- 
tries in the array: 

A(l) A(l + 1) 

If A (I) has a greater value than 
A(l + 1), then the two elements are 
known to be out of correct order and 
need to be swapped. This is ac- 
complished by the use of the classic 
interchange, which we illustrate 
here in BASIC and Pascal: 
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Table 
Now consider the iterations of 
this fundamental step which are 
necessary in order to bring the en- 
tire array into sorted order. First, 
suppose we are just beginning. 
Then we can make no assumptions 
about the sizes of the array 
elements, relative to their positions 
in the array. Thus, suppose we 
iterate the fundamental compare- 
maybe-swap step over values of I 
ranging from 1 to N-1 (why not 1 to 
N?). That is, we will successively 
compare A(1) and A(2),A(2) and A(3), 
and so on, until we reach A (N-1) and 
A(N). Positions of various elements 
will change through swapping. In 
particular, the largest numerical 
value in the orignal array is 
guaranteed to wind up in A(N). Posi- 
tions of various elements will 
change through swapping. In par- 
ticular, the largest numerical value 
in the original array is guaranteed to 





BASIC 


100 
110 
120 
130 
140 


IF A(I) <= A(I+1) THHM 140 
TEMP = A (I) 
A(I) = A(I + 1) 
A(I+1) = TEMP 

• • • 

Pascal 




if A[I] > A[I+1] then 
begin 




Temp := A [I] ; 
A[I] := A[I+1] ; 
A[I+1] := Temp; 




end; 




Figure 2 

The "Classic Interchange" 



wind up in A(N) after the sweep is 
completed. To convince yourself . 
that this is true, ask;"lf the largest 
value is originally in A(J), then what 
other array entries will it be swap- 
ped with?" 

The last paragraph has indicated 
that we can reach a picture such as 
that shown in Figure 3, after one 
sweep of the array. What has been 
accomplished? We have partially 
sorted the original array. How much 
of the resulting array is now in cor- 
rect order? One element — the last. 
Note that this is the same as the 
number of sweeps we have made. 
Now suppose we make a second 
sweep through the array, comparing 
A(1) and A(2), A(2) and A(3), etc. until 
we reach A(N- 2) and A(N-1). It is not 
necessary to compare A(N-1) and 
A(N), since we know that A(N) is 
already in its correct final position. 
Moreover, A(N-1) is now also 
guaranteed to be the second largest 
element in the array, and therefore 
in its correct final position. Thus the 
original array has been divided into 
two pieces: the elements A(1), A(2), 
... A(N-2), still possibly unsorted, and 
the elements A(N-1) and A(N), both 
where they 'should be'. We have 
made two passes and put two 
elements in their correct positions. 

Continuing this process by mak- 
ing passes through less and less of 
the array will cause more and more 
of the 'tail end' of the array to be in 
correct final order and leave less 
and less of the beginning of the ar- 
ray to still be sorted. Altogether it 
will take N-1 passes through the ar- 
ray to guarantee that it is totally 
sorted. The reason that it does not 
require N passes is that the last 
pass causes two elements to wind 



N 



May still need 
further sorting. 





Largest numerical 
value of original 
array. 



Figure 3 

Array after sweep of Bubblesort 



up in their correct places, instead of 
just one. Figure 4 gives both a 
BASIC and a Pascal version of the 
complete bubble sort algorithm. 

Now let us see if we can count the 
number of comparisons that will be 
made. Each sweep through the array 
corresponds to one pass through 
the inner loop of the algorithm. The 
number of comparisons made will 
be the same as the value of the up- 
per limit of this loop, which accor- 
ding to Figure 4. is N-l. The value of I 
is varried by the outer loop and runs 
from 1 to N-1. Thus, there will be: 
N-1 comparisons the first time 
through the loop. 

N-2 comparisons the second time 
through the loop. 

N-3 comparisons the third time 
through the loop. 

N-(N-2) = 2 comparisons the (N-2)nd 
time through the loop 
N-(N-1) = J comparisons the (N-1)st 
time through the loop. 
The total number is therefore: 
(N-1)+ (N-2)+ ... + 3 + 2 + 1 
This number is known in 



mathematics as a 'triangular' 
number, and by a formula from 
algebra may be expressed solely in 
terms of N as 1/2 (N 2 - N). Conse- 
quently, there are about N 2 com- 
parisons made. 

The inefficiency of the bubble 
sort is compensated for by its 
simplicity, especially from a 
pedagogical point of view. It is total- 
ly trivial to program, as we have 
seen. Consequently, it is quite ac- 
ceptable for sorting tasks that only 
involve 'small' values of N. 

Quicksort 

Quicksort, invented by C.A.R. 
Hoare, is probably the most 
'elegant' of the sorting techniques 
yet devised. It is an NIogN sort, 
which is based on a very simple idea 
and in its most compact form may 
be programmed in very few lines of 
code. In fact, probably the greatest 
difficulty in grasping how it works 
involves understanding the ad- 
ministrative details of how to apply 
the basic step which motivates its 





BASIC 
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FOR I = 1 TO N-1 


20 


FOR J = 1 TO N-I 
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IF A (J) < = A(J+1) THEN 70 


40 


TEMP = A (J) 


50 


A(J) = A(J+1) 


60 


A(J+1) = TEMP 


70 


NEXT J 
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NEXT I 




Pascal 




for I := 1 to N-1 do 




for J := 1 to N-I do 




if A [J] > A[J+1] then 




begin 




Temp := A [J] ; 




A [J] := A[J+1] ; 




A[J+1] := A [J] ; 




end; 




Figure 4 




Bubble sort algorithm in both BASIC 




and Pascal 



operation. One has the tendency to 
say, 'You mean, that's all there is to 
it?', or 'But what do you mean by 
simply apply the same procedure to 
both halves?'. Nonetheless, once 
appreciated, it is an algorithm you 
will never forget. That should be 
reward enough for the effort expend- 
ed in understanding it in the first 
place. 

The basic idea underlying 
Quicksort is to perform inter- 
changes of non-adjacent array 
elements in hopes of bringing order 
to the array more quickly (bubble 
sort has already demonstrated the 
inefficiency of interchanging adja- 
cent entries). The idea is applied us- 
ing the concept of a partition of the 
array elements. 

To partition the elements A(P), 
A(P + 1), ..., A(Q) of the array A, 
where Ps1,P<Q,Q^N, requires 
that some value X which actually oc- 
curs as one of the entries A(P), A(P 
+ 1),...,A(Q) be placed into its cor- 
rect final position, say K, and that 
the remaining elements are arrang- 
ed so that A(l)sA(K) for 0<K and 
A(J)> A(K) for J >K. The results are 
pictured in Figure 5. 

For convenience in implementa- 
tion (although this may not be the 
optimal choice in theory), we shall 
always choose A(P) as the value X, 
which is to be inserted into its cor- 
rect final resting place. To ac- 
complish our end result, we adopt 
the following 'double-barreled' 
scan: 

Start with l = P + 1 and J = Q. 
Scan forward from I (i.e. in increas- 
ing l-value order) until we find A(l) for 
which A(l) > X. Scan backward 
from J (i.e. in decreasing J-value 
order) until we find A(J) for which 
A(J) <X. Then interchange A(l) and 
A(J), since they are both in the 
'wrong half of the partition accor- 
ding to the above definition. Con- 
tinue this procedure until J <l. As a 
final act, interchange A(P) and A(l), 
where I now has its 'final' value. This 
puts X = A(P) into its correct final 
position in the array. You should 
convince yourself that it also 
achieves the picture shown in 
Figure 5. Actually, there is one case 
which fails. See if you can discern 
what it is — we'll come back to it 
later on. 

An example may make things a 
bit clearer. Figure 6 shows an un- 



sorted array of 16 elements, which is 
to be partitioned for P = 1, Q = 16. 
Shown are the first values of I and J 
for which an interchange of the par- 
titioning process will take place. 
See if you can draw the final picture: 
showing the array with the partition 
complete and the value of K. The 
answer is shown in Figure 7. 

When one gets down to program- 
ming the partitioning process, 
several details that may not have 
been previously obvious suddenly 
force themselves into the spotlight. 
In order to highlight these, we pre- 
sent in Figure 8 a Pascal procedure 
for the partition step. The first item 
which may catch your eye is that ar- 
ray A is indicated in the parameter 
list to be of size N + 1, instead of N. 
The reason may be seen by studying 
the second repeat statement of 
Figure 8: 

repeat 
l:= I + 1 
until A(l)>Value; 

As with all loops, the programmer 
should be sure that there is a way 
out! In this case, if the elements A(1), 
A(2), ... , A(N) of the array are assum- 
ed to be randomly distributed 
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Figure 5 



among all possible values, then 
there is no guarantee that any of 
them satisfies the condition A(l) > 
Value. Thus, we have extended the 
array and stored a value in A(N + 1) 
which is guaranteed to be greater 
than or equal to any other value that 
could occur in the original array. In 
Pascal, the predefined identifier 
Maxint serves the purpose, and we 
may assume that the assignment 
A[N + 1] : = Maxint; has occurred in 
the calling routine. Now, even if all 
elements of A are strictly less than 
A(1), the repeat loop will terminate 
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when it bumps into the Maxint value 
stored in A[N + 1]. Such a value, 
which is not part of the data being 
manipulated, but instead serves to 
protect against some dire cir- 
cumstances, is known as a sentinel. 

This approach raises two further 
questions: first, do we face a similar 
problem with J; and second, do we 
face the possibility of erroneously 
swapping A(N + 1) with some ele- 
ment of A. The first question is easi- 
ly answered by realizing that Value 
: = A [Lower]. Thus, if J is decreased 
so far that J : = Lower, then A[J]£ 
Value is automatically true. Thus, 
the first repeat loop is guaranteed to 
stop because of this choice. To 
answer the second question, let's 
look closely at what happens when 
N = Upper and A(l) <Value for all I, 
I = 2,3, ... ,N. The repeat statement: 
repeat 

J := J — 1 

until A[J]<Value 
immediately succeeds. J starts at 
N + 1.J— 1 = N and A(N)< Value by 
our assumption. Thus, J stops at the 
value N after the first time through 
the loop. On the other hand, the 
repeat statement for I will continue 
to fail, again by our assumption, un- 
til I =M + 1. Now I + N + 1 and J = 
N. This means that the test I < J will 
fail. Therefore, the interchange 
shown inside the while loop will be 
skipped. Aha!, you say — caught 
you -nothing happens and Quicksort 
is a sham!! Fortunately, that is not 
true. The last two statements in the 
procedure: 

A[Lower] : = A[J]; 

A[J] : = Value; 
will be carried out, causing A[Lower] 
and A[N] to be swapped. 

To assimilate the code of the pro- 
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ACTION, STRATEGY, AND FANTASY- 

for the SERIOUS games player 

and his APPLE II 



Brain Games - 1 demands ingenuity. 

Two players bombard radioactive material with protons 
and electrons until it reaches critical mass and sets up a 
Nuclear Reaction. Dodgem requires you to outmaneuver 
another player to get your pieces across the board first. 
Dueling Digits and Parrot challenges your ability to 
replicate number and letter sequences. Tones lets you 
make music with your Apple (16K) CS-4004 $7.95. Strategy 
Games and Brain Games are on one disk (16K) CS-4503 
$14.95. 

Strategy Games - 1 keeps games players in suspense 

You and your opponent trail around the screen at a 
quickening pace attempting to trap each other in your 
Blockade. A 7 category quiz game will certify you as a 
Genius (or an errant knave!). Beginners will meet their 
master in Checkers. Skunk and UFO complete this classic 
collection (16K) CS-4003 $7.95 

Know Yourself through these valid self-tests 

Find out how your life style effects your Life Expectancy 
or explore the effects of Alcohol on your behavior. Sex 
Role helps you to examine your behavior and attitudes in 
light of society's concept of sex roles. Psychotherapy 
compares your feelings, actions, and phobias to the 
population's norms and Computer Literacy tests your 
microcomputer savvy. A fun and instructional package 
(16K) CS-4301 $7.95. Know Yourself and CAI Programs 
are on one disk (16K) CS-4503 for $14. 95 





You're in command in Space Games - 1. 

Maneuver the TIE fighters into your blaster sights and 
zap them with your lasers to save the rebel base camp 
from annihilation in Star Wars. Rocket Pilot is an ad- 
vanced real time take off and landing game. High resolu- 
tion graphics, exploding saucers and sound effects add to 
the suspense as you repel the Saucer Invasion. Finally, a 
bonus graphics demonstration, Dynamic Bouncer (16K) 
CS-4001 $7.95. Space Games and Sports Games are on 
one disk (16K) CS-4501 for $14.95 

ACTION 

Sports Game's - 1 puts you in the Apple World Series 

Take the field in the Great American Computer Game. 
Mix up your pitches to keep the batter off balance. Move 
your fielders to snag the ball before he gets to first. Balls 
and strikes, double plays, force outs, and errors let you 
play with a realistic strategy. Also in the line up— Slalom, 
a championship downhill ski race, Torpedo Alley, and 
Darts (16K) CS-4002 $7.95. Space Games and Sports 
Games are on one disk (16K) CS-4501 for $14.95 

It's easy to order SENSATIONAL SOFTWARE tor your Apple II. 

Send payment plus $1.00 shipping and handling in the U.S. ($2.00 foreign) to 
Creative Computing Software. P.O. Box 789-M, Morristown, N.J. 07960. N.J. residents 
add $1 00 sales tax Visa. Master Charge and American Express orders may be called in toll 
free to 800-631-8112 (in N.J. 201-540-0445). . 



cedure, simulate its action on the ar- 
ray of Figure 6. As a final note, the 
procedure protects itself from funny 
initial values for Lower and Upper, 
by first checking to make sure that 
Lower < Upper. This will turn out to 
be necessary in one version (the 
recursive one) of the complete 
Quicksort algorithm, but must be 
moved back to the caller for the 
other version (the 'straight' or 
iterative one). 

Now that we have studied the in- 
nards of the Quicksort algorithm, it 
is time to investigate how the parti- 
tion step fits into the larger scheme 
of things. Once the original array A 
has been partitioned, we are left 
with one element in its correct final 
resting place and two subarrays 
that remain to be sorted. The beauty 
of Quicksort is that that is all that 
remains to be done. Once the two 
subarrays are both sorted, the entire 
array is automatically sorted. This is 
true because of the condition — 
guaranteed by the partition step — 
that all elements in the first half of 
the array arre less than or equal to 
all the elements in the second half 
of the array. Not convinced? Think 
about it! Or, consider the following 
analogy: a school teacher wishes to 
arrange test papers in alphabetical 
order. The papers are divided into 
two piles (partitioning step) with all 
papers in the left-hand pile belong- 
ing to students whose names begin 
with letters A to M, and all papers in 
the right-hand pile belonging to 
students with names beginning with 
letters N to Z. Now, if the left-hand 
pile is arranged (by whatever 
method) into alphabetical order and 
likewise the right-hand pile, then all 
that remains to put the whole collec- 
tion into alphabetical order is to 
place the left-hand pile on top of the 
right-hand pile. 

To continue the Quicksort 
algorithm, one applies the basic 
step to both subarrays obtained 
from the first partitioning step. That 
will produce in each case two new 
subarrays (or better, sub-subarrays), 
to which the partitioning process is 
applied in turn. Since we started 
with a finite number of elements in 
array A, sooner or later this will pro- 
duce sub-sub.. .subarrays with 
elements. Such subarrays are 
sorted by default. Thus, they need 
not be partitioned any further. 
Morever, when both subarrays of a 




Figure 7 

Partition step complete A(7) in cor- 
rect position. 



procedure 

Partition! 

var A: array [1. .N+l) of integer; 
Lower, Upper: integer; 

var J: integer ) ; 

var 

Value, Temp: integer; 
begin 

if Lower < Upper then begin 

I := Lower; {Lower bound in A for partition step} 
J := Upper; {Upper bound in A for partition step) 
Value := A (Lower) ; {Comparison value for partitioning) 

while I < J do begin {Partitioning loop) 

repeat {Find element in right half to switch) 

J := J-l 
until A (J) <= Value; 

repeat {Find element in left half to switch) 

I := 1+1 
until A(I) >= Value; 



if I <= J then begin 



{Perform the switch) 



Temp 
A(J) 
A(I) 



= A (J) ; 
= A(I) ; 
= Temp 



end {of if I <= J} 

end {of while I < J) 

A(Lower) := A(J) ; 
A (J) := Value; 



{Insert A (Lower) into its } 
{correct final position in A) 



end {of if Lower < Upper) 
end {of Procedure Partition); 

Figure 8 



procedure 
Sort( 



var A: array [1. .N+l] of integer; 
Lower, Upper: integer ) ; 



J : integer ; 
begin 

Partition (A, Lower , Upper , J) ; 



Sort (A, Lower ,J-1) ; 
Sort (A, J+l, Upper) ; 

end {of Procedure Sort}; 



{Partition A between } 
{A (Lower) and A (Upper) ) 
{Sort the "left" subarray } 
{Sort the "right" subarray } 



Figure 9 



given subarray reach this state, they 
form together with their partition 
element a sorted subarray, which 
may then be ignored while the re- 
maining unsorted subarrays are pro- 
cessed. Eventually, the original two 
subarrays will have been sorted and 
voila!, A will have been sorted. 
Figure 9 shows the implementation 
of this scheme as a Pascal pro- 
cedure must be invoked from outside 
itself with initial values for Lower 
and Upper, which are presumably 1 
and N, in most cases. Once it gets 
going, it calls itself on behalf of the 
subarrays, and the sub-subarrays, 
etc. until it completely sorts A. 
Figure 10 shows the progress of the 
sort as applied to a small array, with 
N = 8. Study it carefully. Figure 11 
presents the calling structure to 
Sort for the array in figure 10. The 
root of the tree represents the 
original call to Sort from outside. 
The interior nodes of the tree repre- 
sent calls to Sort from within itself. 
Each node is labeled with the values 
of Lower and Upper which were 
passed on the corresponding call. 
The leaves of the tree represent 
calls to Sort in which the passed 
values of Lower and Upper corres- 
pond to subarrays with elements. 
Such subarrays are already sorted 
and "nothing " will happen on these 
calls. 

EXERCISE: Determine whether or 
not the Partition procedure may be 
modified to return whenever the 
passed array has either or 1 
elements. If so, make the necessary 
changes to the code. 

The recursive implementation of 
Quicksort is without a doubt one of 



the most "beautiful" algorithms yet 
devised in any branch of computer 
science. Unfortunately, the perfor- 
mance of Quicksort in such an im- 
plementation, even though superior 
to most N 2 algorithims, is still not 
quite as good as it could be. We 
shall not attempt to explain the 
technical reasons for this, other 
than to say that recursion involves 
more than a modicum of overhead. 
However, we shall attempt to for- 
mulate the algorithm in a non- 
recursive or iterative fashion for 
comparison. 

Now look back at the recursive 
implementation of Quicksort shown 
in Figure 9. Since Sort calls itself, 
this means that the variable J, 
which is used locally within Sort, 
must be given a different "incarna- 
tion" on each call. Otherwise, the 
recursive calls would cause its 
former value to be lost, which in turn 
would mean that the procedure 
would get mixed up about where the 
subarrays began and ended. In 
languages, such as Pascal, which 
support recursive procedures, the 
uniqueness of J on each call is 
guaranteed. In a language like 
BASIC, there aren't even pro- 
cedures, let alone recursive ones! 
Thus, in such a language, we must 
"fake it" in some way or another. 

What is it about the variable J 
that's so important? It remembers 
the dividing point between the two 
subarrays determined by any parti- 
tion step. This enables the two 
halves to be sorted separately by 
sucessive calls to Sort. Another way 
to approach matters would be to 
save information about subarrays 



that still need sorting and retrieve it 
as necessary. An appropriate data 
structure for preserving such infor- 
mation is a stack. The Lower and 
Upper values for one "half" of a par- 
tition may be saved by pushing 
them onto the stack, while the other 
"half" is being sorted. When the 
other half has been completely 
sorted, the Lower and Upper values 
for the saved half may be popped off 
the stack and the sorting of that half 
commenced. Of course while sor- 
ting a given half, new pairs of 
bounds for smaller subarrays will be 
determined and bounds for one 
subarray of each such pair will in 
turn be pushed onto the stack. If a 
point is reached at which we try to 
pop the bounds of a subarray from 
the stack, and find that the stack is 
empty, then we will know that the 
original array is completely sorted. 
As a performance enhancement, we 
shall always sort the smaller of any 
given pair of subarrays first. This is 
in distinction to the algorithm of 
Figure 9, which always sorts the left 
subarray first. Sorting the smaller 
subarray first will cause a minimum 
number of entries to be saved on the 
stack. 

The actual code of an iterative im- 
plementation of the Quicksort 
algorithm is presented in Listing 5, 
using APPLE Integer BASIC. 

Sorting Implemented 

The APPLE II Integer BASIC pro- 
grams of Listings 1-5 provide im- 
plementations of visual sorts for the 
following five methods: Bubble sort, 
straight insertion sort, selection 
sort, Shell sort, and Quicksort. The 
visual display arranges the array to 
be sorted as a table of up to 100 
positive two digit integers — the user 
may request fewer if so desired to 
speed up the completion of the 
algorithm. The basic table using the 
random number generator for IN- 
TEGER BASIC. For skeptical 
viewers, the values to N may be 
generated in a permuted order and 
filled into the first N + 1 slots of the 
tableau. The modificationneeded in 
order to accomplish this is shown in 
Figure 12. Figure 13 shows a typical 
tableau, this one prior to the beginn- 
ing of Shellsort. Notice that extra in- 
formation is displayed in the small 
area surrounding the display. By 
studing the listing and carefully 
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Figure 10 

Complete trace of Quicksort for 

N = 8 boxed entries are known to be 

in the correct slot. 



monitoring this information, extra 
insight into the nature of the 
algorithms may be gained. 

All values generated are positive 
and less than 100. This is done 
because of horizontal space con- 
straints in the display and does not 
reflect any inherent limitations in 
the algorithms themselves. 

The programs each carry out one 
of the sorting algorithms.As the ar- 
ray is sorted, the values displayed 
on the screen are modified to reflect 
the changes taking place internally. 
Various devices are used to 
highlight this: some visual and 
some aural. The audio effects are 
programmed using the 

Programmer's Aid ROM. Thus, you 
may have to remove or modify cer- 
tain statements in order to run the 
programs, if you don't own PA. 



Each time a number is moved 
from one place to another in the ar- 
ray, that value is highlighted in the 
display. This is accomplished by 
momentarily displaying the value in 
reverse video, then switching back 
to normal mode. If your APPLE has 
been modified for lower case, this 
probably won't work. You can get a 
good idea of how each algorithm 
does its job just by watching the 
pattern of flashes on the screen.* In 
addition to this, as mentioned 
above, each sort prints on the 
border of the display some addi- 
tional imformation about what is 
happening. Each program begins 
with a prologue giving the name of 
the sort and prompting the user for 
the number of elements to be 
sorted. The value of PDL(1) is used 
by the programs to control the 
speed at which the display is 
generated. Thus to slow down the 



progress of the program, simply turn 
up the PDL(1) control. 

While each algorithm is in pro- 
gress, two tones will be sounded 
periodically. One tone is generated 
each time an array element is 
copied from one place to another, 
that is, for each interchange. A dif- 
ferent tone is sounded whenever an 
array element is compared to 
another or to a fixed value, that is, 
for each comparison. Listening to 
the pattern of sounds thus produced 
gives a very definite auditory tattoo 
to each algorithm. The calls to Pro- 
grammer's Aid which produce these 
tones are localized in subroutines to 
facilitate their removal or replace- 
ment should you not have the PA 
ROM. For example, in the bubble 
sort demo, you may defeat the 
sounds by inserting the two 
statements: 

901 RETURN 
951 RETURN 

Even if you do have PA, you may 
want to use these statements in 
order to (a) speed up the program a 
little or (b) hear only comparisons or 
only interchanges. 

*NOTE: If you stop the program with 
a Control-c at just the right (or 
wrong — depending on your point of 
view) moment, you may find that 
everything is being displayed in 
reverse video. To return to normal 
display mode, simply type: 

POKE 50,255 

and all should be well. 

I hope that these demonstrations 
will enhance your understanding 
and enjoyment of sorting 
algorithms you may wish to imple- 
ment similar demos for other sor- 
ting algorithms, or if you are very 
ambitious, how about a way of hav- 
ing the various algorithms swap in 
and out while the same array is 
sorted in stages? Happy viewing! 

A complete package of twenty 
demonstration programs, including 
the ones listed here and variations 
upon them may be obtained for 
$14.95 on a single diskette by 
writing to the author. 
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Figure 11 

Call tree for Figure 10. Each node is 
labelled with the values of Lower, 
Upper for the corresponding call. 
The levels of the tree correspond to 
the depth of the recursion. 



0123456789 

01 12 72 14 68 54 23 32 3 56 24 

1! 44 26 41 87 67 8 81 39 39 

2! 3 26 60 64 35 20 39 78 65 26 

3! 16 17 99 69 81 88 65 32 5 68 

4! 37 44 32 89 65 37 20 38 84 77 
5! 
61 
7! 



9! 



SHELL SORT 
SPAN = 10 



J= 10 
A(J)=44 



Figure 13 

Just before the start of the shell 
sort. Fifty elements are being 
sorted. 



80 For I =0 TO N: A(l) = : NEXT I 
90 Fori =0TO N 
100 L = RND (N + L): IF A(L) 
>=0THEN 100 
105 A(L) = I: X = L: GOSUB 

DISPLAY 
110 NEXT I 

Figure 12 

Modification to Display generation: 
will seed the initial array with exact- 
ly the numbers to N in some per- 
muted order. 



Richard Vile was educated in 
mathematics, earning a B.S. degree 
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Software for the Hpple II gfe 

SUPER CHECKBOOK-a program designed to be an electronic supplement to your checkbook 
register. It's disk oriented and allows information to be displayed on the video screen or printer. 
It's super fast in sorting and retrieving information and totals. As an added bonus the program 
can optionally provide bar graphs to screen and/or printer. The program performs all standard 
check register operations, i.e. reconciliation. Minimum requirements are Disk II and only 32K 
RAM memory if Applesoft is in ROM; $19.95. 

ADDRESS FILE GENERATOR -a program that gives you complete control over a name and 
address file at a very low price. The power and flexibility of this software system is unmatched 
even in programs costing much more. You are allowed up to eleven fields in each record and 
you can search and sort on any of these fields. In fact you can sort up to three fields at once. 
The program contains a powerful print format routine which allows you to print out any field in 
any format you wish. Minimum requirements are Disk II and only 32K RAM memory if 
Applesoft is in ROM; $19.95 

WORLD OF ODYSSEY— an adventure game to which all others must be compared. It's by far 
the most complex game for the Apple II. It will probably drive you crazy and take several 
months of play to completely traverse this world. You have 353 rooms on 6 different levels to 
explore with myriads of treasures and dangers. The program allows you to stop play and to 
optionally save where you are so that you can resume play at a later time without having to 
repeat previous explorations. It's been called the best adventure game yet! Minimum 
requirements are Disk II with 48K RAM and Applesoft II in ROM; $19.95. 
REAL ESTATE ANALYSIS PROGRAM -The Real Estate Analysis Program provides the user 
with three features, a) A powerful real estate investment analysis for buy/sell decisions and 
time to hold decisions for optimal rental/commercial investments, b) Generation of complete 
amorization schedules, c) Generation of depreciation schedules. All three features are designed 
for video screen or printer output. In addition, the program will plot; cash flow before taxes vs. 
years, cash flow after taxes vs. years, adjusted basis vs. years, capital gains vs. years, pre-tax 
proceeds vs. years, post-tax proceeds vs. years, and return on investment (%) vs. years. 
Minimum requirement Applesoft II, 16K; $14.95. 

DYN AMAZE— a dazzling new real-time game. You move in a rectangular game grid, drawing or 
erasing walls to reflect balls into your goal (or to deflect them from your opponent's goal). 
Every ball in your goal is worth 1 00 points, but you lose a point for each unit of elapsed time 
and another point for each time unit you are moving. Control the speed with a game paddle: 
play as fast as ice hockey or as slowly and carefully as chess. Back up and replay any time you 
want to; it's a reversible game. Integer Basic (plus machine language); 32K; $9.95 

ULTRA BLOCKADE— the standard against which other versions have to be compared. Enjoy 
Blockade's superb combination of fast action (don't be the one who crashes) and strategy (the 
key is accessible open space -maximize yours while minimizing your opponent's). Play against 
another person or the computer. New high resolution graphics lets you see how you filled in an 
area — or use reversibility to review a game in slow motion (or at top speed, if that's your style). 
This is a game that you won't soon get bored with! Interger Basic (plus machine language); 
32K; $9.95. 

What is a REVERSIBLE GAME? You can stop the play at any point, back up and then do an 
"instant replay ", analyzing your strategy. Or back up and resume the game at an earlier point, 
trying out a different strategy. Reversibility makes learning a challenging new game more fun. 
And helps you become a skilled player sooner. 



Available at your 
local computer store 



DEALER INQUIRIES INVITED 



Programs Available on Diskette 
at $5.00 Additional 

• Check or Money Order 
Call or write for our free • include $i .00 for 

SOFTWARE CATALOG /»## If #/#£ •*/#/< '/ fV/1 shipping and handling 

M ^ ** WW MJ/mmi^WWM M 9 Ml-mw^» #c.O.D. ($1.15 add'ti. charge) 

Apple II is a registered P. O. BOX 157 • Master Charge and VISA 

trademark of PITMAN, NEW JERSEY 08071 orders accepted 
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'Sorting' continued from page 22 



Listing 1 
BUBBLE SORT 



: LI5! 



5 lilh A< 100 ) 

6 KBD=- - 46384 i CLK=- i6360 i f XTLO 
54OIXNTRU«10O4 

/ DISPLAY-600 : WAIT=800 tCOKPARC" 

900 ; INTERCHANGE=950 
HUSIC«- -10473 :'TIME=766» I IMBRL= 
765:PITCH=767 
10 TEXT I CALL -936 
20 GO&UB INTRO 
50 GOSUB TITLE 

90 FOR R=0 TO 100 j A( R >=32767 S NCX 
R 
100 FOR 1=0 TO N 
105 A( I >= RND <100>:X=Ii GOSUB 

DISPLAY 
108 IF" N=0 THEN 150 
110 NEXT I 
150 FOR 1=1 TO NUM-i 



152 ILAG=0 

155 FOR J=0 TO N-I 

150 FOR T»0 TO PDL \±)l NEXT i 

159 GOSUB COMPARE 

160 IF A(JK=A(JI1) THEN 2v0 
163 X=i00; POKE 50»127 5A<: 100 )=A( 

J)J GOSUB DISPLAY 
165 KEEP=A(J)i GOSUB INTERCHANGE i 

X=J 
170 POKE 50»63 

173 A< J )=A( J + l )t GOSUB DISPLAY; 
GOSUB INTERCHANGE I POKE 50 

,255 
175 GOSUB DISPLAY ;X=.JFli POKE 50 

»63 
ISO A(J + 1 >=KEEPJ GOSUB DISPLAY; 
GOSUB INTERCHANGE I POKE 50 

,255 
185 GOSUB DISPLAY 
190 FL.AG=1 

195 Kl.Y= PEEK (KBD>i IF KEY<128 

THEN 200 

196 POKE CLRjOi GOSUB WAIT 
200 NEXT J 

202 IF FLAG=0 THEN 200 
205 NEXT I 
208 VTAB 24: TAB 21 J PRINT "FINISHI 

"f 
210 IF PEEK (KBDK123 THEN 210 
220 POKE CLRtOl CALL -936 i GOTO 

20 
500 TEXT I CALL -936 
510 VTAB i; FOR 1=0 TO 91 TAB 7 



-{•3*1 1 PRINT Ul NEXT I 
515 VTAB 2; TAB 7 J FOR 1=0 TO 9 

; PRINT "-—"J J NEXT I 
520 FOR J=0 TO 9 5 VTAB 3i2*J5 TAB 

4 J PRINT -it" \ "i i NEXT J 
525 VTAB 235 TAB It PRINT "TEMP=" 

t J TAB 20 

528 PRINT "BUBBLE SORT" 

530 RETURN 

600 COL=X MOB 10 

610 RQW=X/10 

620 VTAB 2*R0W+3; TAB 7+3*CQL 

630 IF A(XK10 THEN PRINT " "5 

635 PRINT A(X)J 

640 RETURN 

800 IF KEYO ASCCG" ) THEN 810 

805 TEXT i CALL -936 1 END 

810 VTAB 2*R0W+3i TAB 6i3*C0LS PRINT 

">"» 
815 KEY= PEEK (KBB)J IF KEY<128 

THEN 810 
817 VTAB 2*R0W+3I TAB 6i3*CGL; PRINT 

II II * 

820 POKE CLR»0J RETURN 
900 REM *## TO REMOVE SOUND FOR COM 
PAR I SONS - INSERT 901 RETURN **# 

902 POKE PITCH* 10 J POKE TZH£»5I 

CALL MUSIC 
905 FOR DE=1 TO PDL <l)t NEXT DE 
910 RETURN 

950 REM #** TO REMOVE SOOND FOR INT 
ERCHANGES - INSERT 951 RETURN *# 
* 
952 POKE PITCH»49i POKE TXHEtSt 

CALL MUSIC 
955 FOR DE*1 TO PDL <1>; NEXT DE 
960 RETURN 
1.000 VTAB 10 5 TAB 5 J PRINT "I WILL SO 
RT UP TO 100 POSITIVE" 

1001 TAB 5 5 PRINT "INTEGERS INTO ASCE 
NDING" 

1002 TAB 55 PRINT "ORDER USING THE BU 
&BLE SORT." 

1008 VTAB 151 TAB 19 f INPUT "VALUE OF 

N PLEASE" »NUMiN=NUM-l 
1010 IF NUMO100 THEN RETURN 
1.015 TAB 10 

1.020 PRINT "TOO BIG!!!!!": GOTO 
1000 
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Listing 2 
INSERTION SORT 





5 
ii 

7 

a 

9 

10 
20 
50 
90 

J. 00 
105 

103 
110 
ISO 
151 



l=:.j: 
DIM 



MVf 



} 



KBD=-16304:CLR=-16360i TITLE* 

500SINTRG=1000 

DISPLAV ==600 S WAX 1=300 * COMPARE* 

900 ; INT£RCHAM6E*959 

MUSIC=-"10473ii'IME=766:TIMBRE= 

765:PITCH=767 

DELA Y=975 : ERASE=650 

TEXT : CALL -936 

GOSUB INTRO 

GOSUB TITLE 

FOR R=0 TO 97;A(R)=32767i NEXT 

R 

FOR 1=0 TO N 

A< I >= RND (100)iX=l; GOSUB 

DISPLAY 

IF N=0 THEN 150 

NEXT I 

FOR 1=1 TO N 

IF I>N THEN 206iY=A(I) 



152 VTAB 23 J TAB 32 

THEN 



t PRINT 
PRINT " 



I=" 



J. 53 



I.D4 

155 
156 

158 
159 
160 
1 6 3 
166 
168 
175 
i.73 

180 

185 
200 
202 
203 
204 
205 
206 



210 



i ! IF K10 

PRINT I 
VTAB 24 J TAB 32 i PRINT "Y = " 
ri IF Y<10 THEN PRINT " u r\ 

PRINT Yy 
GOSUB INTERCHANGE 
FOR J=I-1 TO STEP -1 
GOSUB DELAY t KEY* PEEK < KBB ) 
J IF KEY<128 THEN 159 
POKE CLRfOJ GOSUB WAIT 
GOSUB COMPARE 
IF Y>A( J) THEN 202 
M J+l )~A(.J ) 
GOSUB INTERCHANGE 
POKE 50*63 

X«JI GOSUB display: gosud delav 
X==JilJ gosub display: GOSUB 

DELAY 

POKE 50*255: GOSUB DISPLAY; 

GOSUB DELAY 
X*JI GOSUB ERASE 
NEXT J 
At J+l >=Y 

POKE 50»63iX=J+li 
GOSUB INTERCHANGE 
POKE 50x255: GOSUD 
NEXT I 
VTAB 24: TAB 15 J PRINT 



GOSUB DISPLAY 
DISPLAY 

'FINISHE 



500 
510 



-IS 



7 



TEXT : CALL -936 

VTAB It FOR 1=0 TO 9i TAB 

+3*1 : PRINT I J I NEXT I 

TAB 7: FOR 1=0 TO 9 



ii _» 



* ♦ 



NEXT I 



520 



530 
600 
610 
620 
630 
635 
640 
650 
655 
660 
670 
800 
805 
3i0 



VTAB 3+2*0 : TAB 



; NEXT 
PRINT 



INSERTIO 



: PRINT 

FOR J=0 TO 9i 

4{ PRINT Ji" ! "• 

VTAB 23: TAB 13: 

N SORT" 

RETURN 

COL-=X HOD 10 

R0W=X/10 

VTAB 2*R0W+3: TAB 7+3*C0L 

IF A( X X10 THEN PRINT B "» 

PRINT A(X)i 

RETURN 

COL=X MOD 10:ROW=X710 

VTAB 2*R0U+3: TAB 7+3*C0L 

PRINT " "i 

RETURN 

IF KEYO ASCC'O") THEN 810 

TEXT : CALL -936: END 

KEY" PEEK (KBD): IF KEY<120 
THEN 810 
820 POKE CLR»0t RETURN 
900 REM *** TO REMOVE SOUND FOR COM 

PARISONS - INSERT 901 RETURN *** 



902 

905 
910 
950 



IF PEEK (KBD XI 28 THEN 210 
POKE CLR»0: CALL -936: GOTO 
20 



955 
960 
975 
980 
1 

1 1 
.1.002 
1008 

L010 
1012 
1013 
1015 
10 20 



POKE PITCHilO* POKE TIME*5* 

CALL MUSIC 
GOSUB DELAY 
RETURN 

REM *** TO REMOVE SOUND FOR 
ERCHANGES - INSER 
* 
POKE PITCH t 49J POKE 

CALL MUSIC 
GOSUB DELAY 
RETURN 

TO PBL ( 1 ) 



951 RETURN 
TIME f 3« 



INT 
** 



FOR DE*1 

RETURN 
VTAB 10 : 
RT UP TO 



TAD 
100 



TAB 51 PRINT 



5J PRINT 

POSITIVE" 

"INTEGERS 



NEXT DE 
"I WILL SO 
INTO ASCE 



ORDER USING THE IN 
"VALUE OF 



NDING" 

TAB 5J PRINT 
SERTION SORT," 
VTAB 15: TAB 10 1 INPUT 
N PLEASE" »NUM:N=NUM-1 
IF N>=0 THEN 1013 
TEXT : CALL -936: END 
IF NUMO100 THEN RETURN 
TAB 10 

PRINT "TOO BIG! Mil** GOTO 
1000 



Listing 3 
SELECTION SORT 



PR#0 
LIST 



8 

9 
10 
20 
50 

LOO 



no 

150 
151 

152 



155 
156 

157 
158 
159 
1 60 
163 
165 



168 
175 
178 
185 
200 
20 2 
203 



204 

212 
215 

218 
220 

500 
510 



I=.J=Y=N 

DIM A< 99 ) 

KBD=~i63S4;CLR=-I6368;TITLE= 

500;iNTRO=1000 

DISPLAY=600;WAIT=800;CMP=900 

JINT=950 

HUSIC=-10473;TIME=766iTIMBRE= 

765;PITCH=767 

DELAY = 975 5 ERASE=650 

TEXT : CALL -936 

GOSUB INTRO 

GOSUB TITLE 

FOR 1=0 TO N 

A< I )= RNB (100);X=I{ GOSUB 

DISPLAY 

NEXT I 

FOR 1=0 TO N-l 

MAX=0 



VTAB 23? TAB 



32 i 
THEN 



PRINT 
PRINT " 



IF KEY < 128 
WAIT 



i I IF K10 

PRINT I 
FOR J=l TO N-I 
KEY- PEEK <KBD); 

THEN 158 
POKE CLRyO J GOSUB 
GOSUB DELAY 
GOSUB CMP 

IF A<JX=A(MAX) THEN 200 
MAX=J 

VTAB 24 i TAB 32 J PRINT "M« 
ft IF MAX<10 THEN PRINT " 
i l PRINT MAX J 



l = » 
"y 8 



POKE 
X=»JJ 

POKE 



50*63 

GOSUB DISPLAY 



X=..J t 



50 y 255 

GOSUB DISPLAY 
NEXT J 

TEMP=A(MAX)J GOSUB INT 
M MAX )=A<N-I )JX=MAXt POKE 



50 



r63; 



? enc 



GOSUB DISPLAY 



GOSUB INT J 
POKE 50 y 255t GOSUB DISPLAY 
A(N-I )=TEMP;X=N-IJ POKE 50 y 
63 J GOSUB DISPLAY; GOSUB INT; 



POKE 50 y 255; 



NEXT 
VTAB 



GOSUB DISPLAY 



I 



TAB 



is; 



PRINT "FINISHED 



IF PEEK (KBDX128 THEN 218 
POKE CLRyO; CALL -936; GOTO 
20 



TEXT ; CALL 
VTAB i; FOR 
+3*1 1 PRINT 



-936 

1=0 TO 9; TAB 

lit NEXT I 



515 



vtab 2; tab 71 for 1=0 to 9 

; print " — ";; next i 

for j=0 to 9; vtab 3+2* j i tab 

4; PRINT Jy" ! "ft NEXT J 
VTAB 23J TAB 13; PRINT 

"SELECTIO 



530 
600 
610 
620 
630 
635 
640 
800 
SO 5 
810 
815 
849 
900 



N SORT" 

RETURN 

C0L=X MOD 10 

ROW=X/10 

VTAB 2*R0W+3; TAB 7+3*C0L 

IF A(X><10 THEN PRINT " "J 

PRINT A<X)$ 

RETURN 

IF KEY* ASC("Q") THEN 810 

TEXT ; CALL -936; ENB 

IF PEEK (KBDX128 THEN 810 

POKE CLRyO 

RETURN 

REM *** TO REMOVE SOUND FOR COM 

PARISONS - INSERT 901 RETURN *** 



SOUND FOR INT 
951 RETURN ** 



POKE TIHEf3 



( 1 >: NEXT BE 



902 POKE PITCHylO; POKE TIMEyS; 

CALL MUSIC 
905 GOSUB DELAY 
910 RETURN 
950 REM *** TO REMOVE 

ERCHANGES - INSERT 

* 
952 POKE PITCHy49; 

CALL MUSIC 
955 GOSUB DELAY 
960 RETURN 
975 FOR DE=1 TO PDL 
999 RETURN 

1000 VTAB 10 ; TAB 5; PRINT ' 
RT UP TO 100 POSITIVE" 

1001 TAB 5; PRINT "INTEGERS 
NDING" 

1002 TAB 5; PRINT 
LECTION SORT 

1008 VTAB 15; TAB 
N PLEASE" yN 

1010 IF N>0 THEN 1013 

1011 TEXT ; CALL -936; END 
1013 IF N<=99 THEN RETURN 
1015 TAB 10 

J.020 PRINT "TOO BIGM!!!"{ GOTO 
1000 



I WILL SO 



INTO ASCE 



ORDER USING THE SE 



10 ; INPUT "VALUE OF 



PR#0 

LIST 

100 

105 



110 

120 

125 
1150 
140 
150 
160 
170 

180 



Listing 4 
SHELL SORT 



200 
210 



216 

220 
230 
233 



235 
236 

240 
245 
250 
260 
265 
270 
280 
285 

237 
290 
300 
305 
310 
320 



DIM A( 99 )»INCS< 5 ) 
MUSIC=-10473 J PITCH=767 I TIME= 
766:TIMBRE=765: POKE TIMBRE* 

KBD=-16384:CLR=-16368:TITLE= 

400;INTRO=1000 

DISPLAY=500:WAIT=800:CMP=900 

5INT=950 

DELAY=975:ERASE=550 

TEXT : CALL -936 

GOSUB INTRO 

GOSUB TITLE 

FOR 1=0 TO N 

A( I )= RND (100)tX=II GOSUB 

DISPLAY 

NEXT I 



.90 INCS( 1 >=10 



INCS<2)=6JINCS<3 
)=2;iNCS<5)=i 



)=4:iNCS(4 

FOR 1=1 TO 5 

SPAN=INCS< I ) 

IF SPAN>N THEN 370 

VTAB 24 J TAB 12 J PRINT "SPAN=" 

IF SPAN<10 THEN PRINT " "*; 

PRINT SPAN? 
FOR J=SPAN TO N 
Y=A(J)S GOSUB INT 
VTAB 23 J TAB 28 J PRINT "J= " 
* J IF J<10 THEN PRINT " "* J 

PRINT J 
TAB 26* PRINT "A(J)="*: IF 
A(J X10 THEN PRINT " "* 
POKE 50*63: PRINT A< J ) * : POKE 
50*255 

FOR K=J -SPAN TO STEP -SPA* 
GOSUB CMP 
IF Y>A( K ) THEN 320 
POKE 50*63 
GOSUB INT 
AC K+SPAN )=A( K ) 
X=K-fSPAN; GOSUB DISPLAY 
KEY= PEEK (KBD)J IF KEY<128 

THEN 290 
POKE CLRfOt GOSUB WAIT 
GOSUB DELAY 

POKE 50*255* GOSUB DISPLAY 
X=K: GOSUB ERASE 
NEXT K 
POKE 50*63 



325 GOSUB INT 



330 

340 
350 
360 
370 
330 

390 
395 



A( K+SPAN )=Y S X=K+SPAN { GOSUB 
DISPLAY 
GOSUB DELAY 

POKE 50*255* GOSUB DISPLAY 
J 



NEXT 
NEXT 
VTAB 



400 
420 

430 

440 

450 

460 
500 
510 
520 
530 
540 
549 
550 
555 
560 
599 
300 
305 
810 

820 
900 



140 

TEXT J CALL -936 

VTAB i: FOR 1=0 TO 9* TAB 7 

+3*1 J PRINT III NEXT I 

VTAB 2; TAB 6 J FOR 1=0 TO 9 

; PRINT " "»! NEXT I 

FOR J=0 TO 9 J VTAB 3+2*Jl TAB 

4J PRINT J»" ! " *: NEXT J 

VTAB 23t TAB 101 PRINT " SHELL S 

ORT" 

RETURN 

COL=X MOB 10 

ROW=X/10 

VTAB 2*R0W+3J TAB 7i-3*CQL 

IF A<XK10 THEN PRINT " "* 

PRINT A<X)* 

RETURN 

COL=X MOD 10iROW=X710 

VTAB 2#RQW+3J TAB 7+3*CGL 

PRINT " "» 

RETURN 

IF KEYO ASC<"Q") THEN 810 

TEXT I CALL -936; END 

KEY* PEEK <KBD>: IF KEY<128 

THEN 810 
POKE CLR*0: RETURN 
REM **# TO REMOVE SOUND FOR COM 
PARISGNS - INSERT 901 RETURN *** 



902 

905 
949 
950 



952 



960 

975 

999 

1000 

L 1 

1020 

L0 30 

1. 040 

1060 

10 70 
1080 



I 
24 



IF PEEK 
POKE CLR»0 



TAB 12* I 
(KBDK128 



CALL 



>RINT 

THEN 
-936: 



"FINISHE 20 00 

2 0.1.0 



390 
GOTO 



>OKE TIME*3i 



SOUND FOR INT 
951 RETURN #* 



POKE PITCH* 10 

CALL MUSIC 
GOSUB DELAY 
RETURN 

REM *** TO REMOVE 
ER CHANGES - INSERT 
* 
POKE PITCH*49: POKE TIME*3: 

CALL MUSIC 
GOSUB DELAY 
RETURN 

FOR DE=1 TO PDL ( 1 ) 
RETURN 
VTAB 10 : TAB 
RT UP TO 100 
TAB 5 5 PRINT 
NDI.NG" 

TAB 5: PRINT 
ELL SORT" 
VTAB 15* TAB 
N PLEASE" rN 
IF N>0 THEN 
: END 

IF N<=99 THEN RETURN 
TAB 10 

PRINT "TOO MANY! ! ! ! !" 
1000 
POKE CLR*0 

KEY= PFFK (KBD): IF KEY<128 
THEN 2010 



NEXT BE 



5* PRINT "I WILL SO 
POSITIVE" 
"INTEGERS INTO ASCE 



ORDER USING THE SH 
INPUT "VALUE Oi- 



10 



1060* CALL -936 



GOTO 



20 20 POKE CLR*0: RETURN 



>LIST 
5 

6 

7 

3 

10 
20 
50 

100 
105 

110 
115 



130 
135 
137 



138 



139 
140 
143 
144 
150 
160 
16.1 
162 

163 

165 
170 
175 



177 

179 

130 
203 



Listing 5 
QUICKSORT 

DIM A(200 >»STACK<24) 

KBD= -16334 :CLR*-l<i36SJTITLE= 

5000;iNTRO=10000 

DISPLAY=6000iCnP=^500iH£LAY= 

6600 

MUSIO-10473 {TIM L-766 JTIHBKE- 

765,PITCH-767 

TEXT I CALL --936 

GOSUB INTRO 

GOSUB TITLE 

FOR 1=0 TO N 

A< I )= RND (100)JX«It GOSUB 

DISPLAY 

NEXT I 

A(N+1 >=32767 

P=0tQ=N 

TQP=OiMAXTP*0 

IF P>*0 THEN 170 

K*Gtl 

VTAB 23J TAB 34 J PRINT "p- " 

»: IF P<10(> THEN PRINT " " -j 

5 IF P<10 THEN PRINT " Si PRINT 

P 

TAB 34 2 PRINT U Q- "it IF K< 

100 THEN PRINT " "it IF K<10 

THEN PRINT " " M PRINT K5 
GOSUB 1145 
IF J-P<G~J THEN 150 
GOSUB 400 
GOTO 160 
GOSUB 500 
T0P=T0P+2 

IF TOP>MAXTP THEN HAXTP»TOP 
VTAB 245 TAB 23; PRINT (TCP/ 

2); 

IF PEEK (KBD)>=128 THEN GG3UB 

8000 

GOTO 130 

if top=0 then 203 

q==stack< top );p = stack( top-1 ) 
;top=top-2 

GOSUB 7500 

VTAB 24; TAB 23; PRINT (TOP/ 

2)y 

IF PEEK <KBD)>=128 THEN GOSUB 

8000 

GOTO 130 

VTAB 24; TAB 4; PRINT "FINISHED" 



09 TAB 15! PRINT "MAXTOP= 



!10 



400 
405 
410 
415 
499 



(MAXTP/ 



IF PEEK (KBDX128 THEN 210 

POKE CUtvOt CALL -936; GOTO 

20 

STACK(T0P + 1 )=P 

STACK(T0P+2)=.J-1 

P=J+1 

GOSUB 7000 

RETURN 



500 STACK( TOP+1 )=J + 1 

505 STACK( TOP+2 )=Q 

510 Q=J-1 

515 GOSUB 7000 

599 RETURN 

1145 v=a(P);i=p;j=k 

1160 J»J-1} IF A(JX=V THEN 1170 



1162 GOSUB 
1165 GOSUB 
1170 I=Iii: 



DELAY 

CUP! GOTO 1160 
IF A( I )>=V THEN 



1180 



1172 
1175 
1180 
1185 
1186 
1133 
1195 

1196 
1199 
1200 
1202 
1999 
50 00 
5010 

5020 

5030 

5035 

5040 

5045 
5050 



5060 

5099 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6030 
6090 
6100 



6110 



GOSUB DELAY 
GOSUB CMP I GOTO 1170 
IF J< = I THEN 1200 
TEMP=A< I ) 

a< i )=a(j>:x=i: gosub display 
a(J)=temp:x=.j: gosub display 
if peek <kbdx128 then 1160 

GOSUB 800 
GOTO 1160 

a< p )~a< j ) ; x=p ; gosub display 
a(.j >=v:x=j: gosub display 

RETURN 
TEXT : CALL 
VTAB i: FOR 
+3*1 : PRINT 
TAB 



-936 

I»0 TO 9; FAB 7 

lij NEXT I 

FOR 1*0 TO 9 



7; 

" "»J NEXT I 

•J*0 TO 19 5 VTAB 3- 

THEN PRINT " ' 



•j; TAB 

5 J PRINT 
"QUICKSORT 
"PENDING; 



VTAB 2: 
: PRINT 
FOR 
3 

IF ..K10 

Ji" ! " 5 5 NEXT J 
VTAB 23i TAB 3 J PRINT 
PARTXTIfiN>«>am««B> M 
VTAB 24: TAB 15: PRINT 
0" 9 

VTAB 5; TAB 39: PRINT "S" { TAB 
39; PRINT "T": TAB 39; PRINT 
"A",' TAB 39J PRINT "C"; TAB 
39; PRINT "K" 

FOR R=10 TO 22: TAB 3?; PRINT 
" . " : NEXT R 
RETURN 
COL=X MOD 10 
R0W=X/10 
POKE 50*63 

VTAB R0W+3J TAB 7+3*C0L 
IF A<XX10 THEN PRINT " "i 
PRINT A(X )J 
POKE 50? 255 

VTAB R0W+3t TAB 7+3*CQL 
IF A<X)<10 THEN PRINT " "y 
PRINT A(X)J 

REM *## TO REMOVE SOUND FOR INT 
ERCHANGES - INSERT 6101 RETURN * 
** 

POKE PITCH r 49: POKE TIHEr3t 
CALL MUSIC 



TO REMOVE SOUND FOR COM 
- INSERT 6501 RETURN ** 



poke timers: 



(1 )l NEXT BE 



6199 RETURN 
6500 REM *** 

PAR I SONS 

* 
6510 POKE PITCHfIO: 
CALL MUSIC 

6599 RETURN 

6600 FOR DE=0 TO PDL 
669? RETURN 

7000 VTAB 21-TOP i TAB 37 

7005 TOS=STACK< TOP+1 )ttfDS"STACK< 

TOP+2 ) 
7010 IF NOS<100 THEN PRINT " "?; 
IF N0S<10 THEN PRINT " "il 
PRINT NOS 
7015 TAB 37: IF TOS<100 THEN PRINT 
■ "?: IF TOS<10 THEN PRINT 
" ";: PRINT TOS? 

7499 RETURN 

7500 VTAB 21-TOP ; TAB 37 1 PRINT 

"• TAB 37: PRINT " "i 



7979 
8000 
8005 

8010 

3099 

10000 

10010 

10020 

10030 

10040 
.100 50 
10060 
100 70 
10080 



RETURN 

POKE CLRrO 

IF PEEK ( KBD X123 THEN 



800 5 



POKE CLRrO 

RETURN 

VTAB 10 : TAB 

RT UP TO 100 

TAB 5: PRINT 

NBING" 



5: PRINT "I WILL SO 

POSITIVE" 

"INTEGERS INTO ASCE 



TAB 



PRINT "ORDER USING HOARE' 



S QUICKSORT." 

VTAB 151 TAB 10 t INPUT "VALUE OF 

N PLEASE" xN 
IF N>0 THEN 10060 
TEXT : CALL -936: END 
IF N<=199 THEN RETURN 
TAB 10 

PRINT "TOO BIG! ! ! ! !*' I GOTO 
10000 




PRINT APPL£ 



® 



Hires-Graphics 
Normal, Inverse, 
In 2 Sizes ! 



PRINTER 



SPECIFICATIONS: 

PAPER SIZE: 8'A"x 11". 

or II " wide continuous. 
RESOLUTION: -O05"/step 
(1.27mm/step). 



The MP-250 PLOTTER 

,^£ only 095. 

FEATURES: Plots on standard paper 
sheet: compact unit built-in home func- 
tion to lower left-hand corner: needs only 6 
bits of one parallel output port choice of 
^^r pen colors and line widths: comes with full 

- ^^ vector software; driven by one parallel port 

or optional interfaces; easily changeable 
pens. 
TRS 80 or APPLE Interfaces Available. 



ACCURACY: ±0.5% » 1 7' 
(43cm) or better. 



PLOTTING SPEED: Up to 
2.5" (6.35cm) sec. 



MICRO MUSIC BOARD for APPLE II 

HAS 4 VOICES & BUILT-IN AMPLIFIER 

SOFTWARE: 

UNCOPY - Make Apple 
disks uncopyaWe $2995 

Computer Comer of New Jersey 

439 RL 23. Pompton Plains. M.J. 07444 

DEALER INQUIRIES INVITED Mastercharge & Visa O.K. 



ULTIMATE TRANSFER 

Telephone Transfer program 
for APPLE D and $25 

DC HAYES Mlcromodem "■-*• 



$ 175. 

ROAD RALLYE 
HIRES Driving Game 
5 different $1495 
tracks. x ^ 



(201) 835-7080 

PRICES SUBJECT TO CHANGE 



by 
EPSON 




795. 



SPEED: 58LPM. 125 CPS with GRAFTRAX 

INTERFACES: Parallel standard IEEE488 and serial RS-232 
optional, (Apple type parallel card and 
cable *99.) 

CHARACTER SET: Full 96 Character ASCII Set (upper and 
lower case with expanded print). 

PRINT HEAD: 100 x 10 6 character life expectancy. 

GRAFTRAX OPTION* full dot addressable graphics (480 
dots/line) with Automatic print head pro- 
tection on dense pictures plus form feed 
and skip over perforation. 

FREE! APPLESOFT- WARE 

for graphics dump included 

•UPDATE EARLIER TX-80's TO GRAPHICS for *99.°° 
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ACCOUNTING SOFTWARE FOR YOU 




GENERAL LEDGER 

If you are a business person who is looking for ultimate 
performance, take a look at this outstanding General 
Ledger package from Small Business Computer Systems. 

Our package features six digit account numbers, plus 
thirty-one character account names. We have ten levels of 
subtotals, giving you a more detailed income statement 
and balance sheet with up to nine departments. Either 
cash or accrual accounting methods may be used. The 
cash journal allows a thirty-three character transaction 
description and automatically calculates the proper off- 
setting entry. You may print the balance sheet and income 
statement for the current month, quarter, or any of the 
previous three quarters. Also, this year's or last year's 
total are included on the income statement, depending on 
the current month. 

There is virtually no limit on entries, since you may 
process them as often as you like. Two thousand (1,000 
from G/L. 1,000 from any external source) can be pro- 
cessed in one session. 



ACCOUNTS RECEIVABLE 

Sound business management requires you to keep 
up-to-date reports regarding the status of your accounts 
receivable. 

Now, from the same company that revolutionized ac- 
counting on the Apple II computer, with their conversion 
of the Osborne/McGraw-Hill General Ledger program, 
you may now obtain the Accounts Receivable package you 
have been waiting for. 

Our package allows you to assign your own alpha- 
numeric customer code up to six characters. Date of the 
last activity, as well as amounts billed this year and last 
year are maintained. This Accounts Receivable system 
maintains six digit invoice numbers, six digit job numbers, 
invoice amount, shipping charges, sales tax (automatically 
calculated), total payments as well as progress billing in- 
formation. You may enter an invoice at any time; before 
it's ready for billing, after you have billed it, and even 
after it's paid. This package also prints reports which list 
the invoices you have not billed yet, open items, paid 





items, and an aging analysis of open items. 

In the final analysis, making your bookkeeping easier is what our software is all about. With our General Ledger package 
you can format your own balance sheet and income statement. Department financial statements may be formated 
differently. You have complete freedom to place titles and headings where you want them, skip lines or pages between 
accounts and generate subtotals and totals throughout the reports — up to ten levels if you need them. Accounts 
Receivable is designed to provide you with complete up-to-date information. The program will print customer statements 
as well as post invoice amounts to any of the accounts maintained by our General Ledger package. These packages will 
support any printer/interface combination. General Ledger requires one hundred ten columns, Accounts Receivable 
requires one hundred thirty columns. 

SMALL BUSINESS COMPUTER SYSTEMS 
Suggewed Retail: <M0 Greenwood Available from your local Apple 

Individually JI80.00 Lincoln, Nebraska 68504 Dealer or contact SBCS 

Together 4SJ0.00 (402) 467.1878 
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PET and APPLE II Users 
PASCAL 

ABACUS Software makes available its version of TINY 
PASCAL for the users of luo of the nost popular personal 
computers i 

TINY PASCAL is a subset of the standard FASCAL as 
defined by Jensen and Uirth. It includes th; structured 
pro3rammin3 features! IF-THEN-ELSE, REPEAT -UNTIL. FOR TO/ 
DOWNTO-DOt yHILE-DOi CASE-OF-ELSE. FUSC and PKGC. New 
sou can learn the language that is shted to becose the 
successor to BASIC. 

TINY PASCAL is a complete package that alloas scu to 
create, compile and execute prolans written in the FASCAL 
lansuaSe. You can save source and object code on diskette 
or cassette(PET version only). The comprehensive user's 
manual can be examined fcr $10( refundable with software). 



REQUIREMENTS 

PET 16K/32K New ROMS casette $40 
PET 16X/32K New ROMS diskette $35 
Apple II 32k Applesoft ROM w/D33 $35 
Apple II m Applesoft RAM w/D35 $35 
TINY PASCAL User's Manual $10 

6502 Interpreter ListinS $20 



master charge 



FREE postage in U.S. and CANADA 
All orders prepaid or COD 




mim aa 
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ABACUS SOFTWARE 

P. 0. Box 7211 
Grand Rapids, Michigan 



49510 



DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 





ISO-1 *\J ISO-2 

Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
•ISOLATOR (ISO-1A) 3 filter isolated 3-prong sockets; 
integral Surge/Spike Suppression; 1875 W Maximum load, 

1 KW load any socket $56.95 

•ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 

(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load. 1 KW either bank $56.95 

•SUPER ISOLATOR (ISO-3), similar to ISO-1A 

except double filtering & Suppression .... $85.95 
•ISOLATOR (ISO-4). similar to ISO-1 A except 

unit has 6 individually filtered sockets .... $96.95 
•ISOLATOR (ISO-5), similar to ISO-2 except 

unit has 3 socket banks. 9 sockets total . . . $79.95 
•CIRCUIT BREAKER, any model (add-CB) Add $ 7.00 
*CKT BRKR/SWITCH/PILOT any model 

(CBS) Add $14.00 

PHONE ORDERS 1-617-655-1532 

£SJ Electronic Specialists, Inc. 



171 South Main Street. Natick. Mass. 01760 



Dept. MI 



"Hello, World 
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A very inexpensive analog interface is presented that 
can be used with any microcomputer. Some PET 
oriented programs are provided, including a STAR ACE 
game, to show how the device may be utilized. 



John Sherburne 



When I bought my PET.one of the 
things I eventually wanted to do was 
to interface the computer to the out- 
side world. Over the two years since 
then I have seen interface devices of 
one kind or another, but all of them 
have been fairly expensive, and 
most are designed for a single ap- 
plication. I have finaly found one in- 
terface, however, which is cheap, 
simple enough for even the laziest 
Sunday solderer to build, and is 
useful for a variety of real world ap- 
plications. By plugging in a joystick 
or two, arcade-type games can be 
created. If the interface is used to 
dense switch settings, educational 
programs or game show re- 
creations can be easily made. Ad- 
ding a potetiometer or thermistor as 
a sensor permits measurement of 
temperature, wind direction or other 
external conditions. All in all, it is 
the best way I have found for the 
PET owner with a tight budget to 
branch out into new areas. 

The interface uses a single in- 
tegrated circuit — an NE555 timer. 
The principle of operation is to hook 
up the timer as in Figure 1 so that it 
emits a pulse when triggered by the 
PET. The duration of the pulse 
depends upon the magnitude of the 
resistance, R1, in the circuit. By tim- 
ing the pulse duration with the PET 
internal clock, the resistance can be 
measured. Thus, any device which 
translates an external quality into a 
resistance can be used as a sensor. 
Using the circuit requires three 



elements: a 5 volt DC power supply, 
the 555-based timer and a sensor. If 
you don't already have a power sup- 
ply there is no need to buy an expen- 
sive one just for this application. I 
found that a small kit such as the 
Jameco JE 200 is adequate, inex- 
pensive ($14.95) and can be put 
together in less than an hour.As for 
sensors, the cost and availability 
depend on what you want to do. A 
simple measure of displacement 
can be made with a potentiometer 
costing less than a dollar. Precision 
probes for temperature, on the other 
hand, may be expensive and hard to 
find. The third element, the NE555, 
costs about 60* and a four timer in- 
terface with board, wire, connectors 
and the like can be constructed for 
about $10. 

Interface to the PET is made 
through pins PAO - PA7 of the 
parallel user port shown in Figure 2. 
These eight pins can be programm- 
ed for either input or output by 
changing the contents of memory 
location 59459 (E843). If bit n of that 
location is a zero, PAn will be an in- 
put pin. If bit n is a one, PAn will be 
an output pin. For example, POKE 
59459,15 will make pins PAO — PA3 
output and pins PA4 — PA7 input. 
Once programmed, the pins are read 
or driven via location 59471 (E84F). 
In this way the user port can be pro- 
grammed so that one pin is used as 
output to trigger a 555 and another 
pin is used as input to sense the 
duration of the timer pulse. Since 



there are eight pins, four 555s can 
be connected without resorting to 
encode/decode arrangements. 

Figure 3 is a schematic of a four 
555 interface. The interface is suffi- 
cient to handle two joysticks — 
each of which has two poten- 
tiometers or four individual sensors. 
Two NE556s could also be used 
since the 556 is a dual 555. The pin 
by pin connection for each of the 
555s is as follows: 

1 Connect to ground. 

2 Trigger.Connect to output pin 
of users port. This pin is nor- 
mally high ( + 5V). When 
brought momentarily to 
ground, it starts the 555 out- 
put pulse. 

3 Output. Connect to users port 
input pin. This pin is normally 
low (ground). During the out- 
put pulse it is high. 

4 Connect to +5V. 

5 Connect to ground through 
bypass capacitor C2 

6 Connect to +5V through sen- 
sor R1 and connect to ground 
through timing capacitor C1. 

7 Connect to pin 6. 

8 Connect to +5V. 

Each of the four 555s in Figure 3 
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is connected the same way. The four 
trigger pins (pin 2) are connected to 
PAO — PA3 and the four output pins 
(pin 3) are connected to PA4 — PA7. 
The PET ground is connected 
through R2 to the IC ground (pin 1). 

The output pulse duration of the 
555 is dependent both on R1 and C1. 
As C1 is increased in capacitance, 
the pulse is longer. A .01 yf 
capacitor works well for moderate 
sensor resistances (50K to 1 meg 
ohm). For lower resistances, a 
higher capacitance is needed. 
Capacitors must be high quality 
mylar for stability. The duration of 
the output pulse also increases as 
R1 increases. If there is no 
resistance at R1, that is, pin 7 is 
shorted to +5V, the pulse duration 
will be essentially zero. An open cir- 
cuit between pins 5 and 7 will cause 
an almost unending pulse. 

To measure the duration of the 
pulse, one of the timers associated 
with the parallel user port is access- 
ed. The timer is two bytes long and 
decrements with every cycle of the 
PET clock (every microsecond). The 
least significant byte of the timer is 
at location 59464 (E848). It starts at 
255, counts down to zero and 
recycles. The most significant byte 
is 59465. It starts at 255 and counts 
down each time 59464 reaches zero. 
The speed of the timer requires that 
machine language rather than 
BASIC be used to access it. Pro- 
gram 1 is a simple assembly 
language program which drives one 
pin of the user port low then high, 
starts the timer and waits for the 
end of the output pulse of the 555. 
The pulse length is then stored in 
locations 42 and 43 (2A and 2B). The 
pins to be used for output and input 
are determined by memory loca- 
tions 40 and 41 (28 and 29), respec- 
tively. For example, if bit 6 of loca- 
tion 41 is a one, then it takes 16 
clock cycles to start the output 
pulse and check the input pin, 16 
microseconds is the minimum pulse 
width that can be measured in in- 
crements of 7 cycles beginning at 16 
(16,23,30...). 

Once the interface has been con- 
structed, Program 1 can be used to 
test its operation. First connect pin 
6 of each 555 to + 5V, then load Pro- 
gram 1 and key in the following: 

10 POKE 59459,15 



20 FOR I = TO 3 
30 POKE 40, 16*2 

l;SYS(977) 
40 A = 255-PEEK 
+ 256*(255-PEEK(43)) 
50 PRINT A: NEXT 



l:POKE 41,2 

(42) 



The result should be that A is 
about equal to the minimum 16 in 
each case. The program assumes 
that four 555s are present with pin 2 
of each connected to one of the first 
four pins of the user port. Pin 3 of 
each 555 is connected to one of the 
last four pins of the user port. That 
is, if pin 2 of a 555 is connected to 
PAn, then pin 3 is connected to 
PAn + 4. If there is a mistake in wire- 
ing or software the result will pro- 
bably be a list cursor type crash. 

The easiest sensor to connect in 
the circuit is a simple switch. If a 
50K resistor is connected across the 
poles of the switch, the switch will 
present no resistance in one posi- 
tion and a resistance of 50K resistor 
is connected across the poles of the 
switch, the switch will present no 
resistance in one position and a 
resistance of 50L in the other posi- 
tion. Connecting four such switches 
in series with a different resistance 
across each one enables the 555 to 
determine which of the four swit- 
ches has been thrown. If normally 
closed pushbuttons are used with 
resistances of 50K, 150K, 300K and 
600K as buttons are pushed, a 
resistance of 50K when button #1 is 
pushed, 150K for #2, 200K for #7 and 
#2, and so forth. This arrangement 
can be used as the basis for quiz or 
educational games where the 
players give their answers by 
pushing one of the buttons. Since 
only one 555 is required for each set 
of switches, up to four players can 
play at the same time. 

Another useful switch arrange- 
ment is to connect a normally open 
pushbutton in place of R1 for each 



555. If a 555 is triggered it will emit 
an output pulse which will continue 
until its pushbutton is pressed. A 
test of reflex speed can be con- 
structed by triggering all four 555s, 
instruction the player to push one 
of the buttons and then measuring 
the time it takes him to respond. 

Since the response time will be 
longer than the timer at 59464 can 
handle, the "jiffy" timer, Tl, should 
be used. Program 2 is an example of 
how the timer can be used. The 
recheck procedure in lines 220 and 
230 is needed to correct for poor 
pushbutton action. The value Z in 
line 165 should be set to yield Y 5 
when there is no time delay between 
asking for a response and pushing 
the button. The same principle used 
in the reflex test can be used along 
with CB2 sound to simulate the 
electronic games which require the 
duplication of a series of sounds. 

One of the more useful applica- 
tions of the 555 interface is the 
joystick. One 555 is used to sense 
the position of each of the two 
potentiometers in the joystick. 
There are two ways that the joystick 
position can be translated into cur- 
sor movement. One is to move the 
cursor relative to some fixed posi- 
tion such as the center of the 
screen. In this mode a given joystick 
position always moves the cursor to 
the same spot on the screen. The 
technique is useful in obtaining in- 
put for games like Checkers or 
Othello. The other mode is to use 
the joystick position to indicate 
movement relative to the current 
postion of the cursor.This technique 
is useful in manuevering through a 
maze or in other real-time games. In 
this mode moving the joystick in a 
given direction moves the cursor in 
that direction. As long as the 
joystick is held in that positsion the 
cursor will continue to move. Retur- 
ning the joystick to the center stops 
the cursor. The following sequence 
illustrates this technique: 



"DOODLE" 

10 RT=20:UP=12 

20 POKE 59^59, 15 

30 REM CALIBRATE JOYSTICK IN CENTER 

^■0 PRINT "Cclearj PLACE JOYSTICK IN CENTER 

S3 ANY KEY WHEN READY." 

50 GET A$: IF A$="" GOTO 50 

60 POKE 40,l6:POKE 4l,l :SYS(977) 

70 A=255-PEEK(42)+256*(255-PEEK(^3) ) 

80 POKE 40, 32: POKE kl ,2 : SYS (977 ) 

90 B=255-PEEK(U2)+256*(255-PEEK(^3) ) 

100 AL=.6*A:AH=1.2*A 

110 BL=.6*3:BH=1.2*B 



PRE 



Of course, this routine must be 
used in conjunction with Program 1. 
The routine can easily be expanded 
to move the cursor more than one 
location at larger joystick 
displacements. With some checks 
to keep the print position on the 
screen added, the program can be 
used to draw pictures or "doodle". 

/* 

John Sherburne is an operations 
research specialist with the Depart- 
ment of Defense. He has a number 
of years experience in mathematical 
computer programming. Microcom- 
puting is his hobby. 



1000 
1010 
1020 

1030 

1040 

1050 

1060 

R=l 

1070 

U=l 

1080 

1090 

1100 



REM SENSE JOYSTICK POSITION 
POKE 40,16: POKE 4t,l : SYS (977 ) 
A=255-PEEK(42)+256*(255-PEEK(43)) 
POKE 40, 32: POKE 41 ,2 : SYS (977 ) 
B=255-PSEK(42)+256*(255-PEEK(43)) 
REM CALCULATE NEW POSITION 
R=-1:IF A>AL THEN R=0:IF A>AH THEN 

U=-1:IP 3>BL THEN U=0:IF B>BH:THEN 

RT=RT+R:UP=U?+U: PRINT "fhorae7"; 
FOR 1=1 TO UP: PRINT: NEXT 
PRINTTAB(RT) "X":G0 TO 1000 



PROGRAM 1 



Assembly Language 



03DI 

O^D? 
0?D5 
03D8 
03DA 
(nDC 
CHDE 
03E1 
03E4 
0TE7 
01EA 
03ED 
01EP 
03F2 
01F5 
03F7 
03F9 



A5 28 

A6 29 

8E 4F E8 

AO 00 

84 2A 

84 23 

8C 48 E8 

8C 49 E8 

8C 4F E8 

8E 4F E8 

2C 4F E8 

DO FB 

AE 48 E8 

AC 49 E8 

86 2A 

84 2B 
60 



IDA 
LDX 
STX 
LDY 
STY 
STY 
STY 
STY 
STY 
STX 
WAIT 3IT 
BNE 
LDX 
LDY 
STX 
STY 
RTS 



IPL'T 

OPUT 

PORT 

I 00 

ANSR 

ANSR+1 

TIML 

TIMM 

PORT 

PORT 

PORT 

WAIT 

TIML 

TIMM 

ANSR 

ANSR+1 



:Load Input mask 
:Load output mask 
:Set trigger high 

: Clear result 

: Clear timer 

; Clear & start timer 

: Bring trigger low 

:Return to high 

:Wait for end of pulse 

: Store result 



BASIC Program to Load 
Assembly Language 

10 DATA 165,40,166,41,1^2,79,2^2,160,0, 
132,42,132,43,140,72,232,140,73,232,140 

20 DATA 79,232,142,79,232,44,79,232,208 
,251,174,72,232,172,73.232,134,42,132 

30 DATA 43,96 

40 FOR 1=977 TO 1017 

50 READ A:P0KE I.AxNEXT 



PROGRAM 2 

10 POKE 59459, 15»Z=9 

20 N(0)=219:N(1)=22?:N(2)=191:N(3)=127 

25 a(0) = "A":l4(l) = ,, B":l4(2) = "C":a(3) = ,, D" 

10 PRINT "[clear] THIS IS A TEST OF YOUR REA 

CTION TIME" 

31 PRINT "[down] WHEN YOU SEE A LETTER ON THE 
' SCREEN" 

32 PRINT "[down] PRESS THE BUTTON WITH THE SA 
ME LETTER", 

33 PRINT "[2 down] PRESS ANY KEY WHEN YOU ARE 

READY" 



Program 2 cont. 

40 GET A$:IF A$="" GOTO 40 
60 I=999+INT(500*RND(1)) 
70 FOR K=0 TO I: NEXT 
120 POKE 59^71,15 

I=INT(4*RND(1)) 

TI$= "000000 ":E=0 

POKE 59471,0 

PRINT "Cdownl H ;L$(I) 

POKE 59471,15 

WAIT 59471,255,255 

R= PEEK (59471) 

IF RON(I) GOTO 220 

Y=INT(Y»100/60)/l00 

PRINT "YOU TOOK" ;Y; "SECONDS' 

IF E=0 THEN E=l:GOTO 170 

IF E=l THEN E=2:POKE 59471 ,0 :GOTO 1 



122 

130 
140 

145 

150 

160 

170 

18C 

190 

200 

220 

230 

50 

?00 



:END 



PRINT "[clear] WRONG BUTTON! ":END 



Notes: 

Line 140 and line 150 start timerpulse. 

Line 160 waits until one of the pins PA4 - PA7 goes low.Line 180 
checks to see if proper button was pushed. Lines 220 and 230 
recheck for errors caused by poor pushbutton action. 

STAR ACE 

10 DIM DNS(24),FG$(3)lPOKE 59*59.15 _ _ , ,, 

20 DATA "",»Cdown]","[2 down! ",-[3 down]", "[4 down] 

"[6 down7","C7 down7","f8 down!" 

10 DATA "[9 down!", "[10 down]","fll down]" 

,"[12 down]", "CI 3 dowriP 

1*0 DATA "£14 down"]","fl5 down]" 

,"[16 down!" 

50 DATA "["17 down!", "118 down J" 

,"[19 down"]" 

60 DATA "[20 down]", "[21 down]" 

,"[22 down]" _ 

70 DATA "123 do_wn]"jjT2U downj" 




View of assembler four 555 inter- 
face device. 



"[5 down]". 




iJlbackJi3paceJ 
] [back]\. 
backQ-fback] 



[down] [back]" [off]— {3 back] Jup] 



[down] 
2 space] 



[baciO'-M [backHo- 
82 DATA "fs pace] «Kd own] [2 back] [rvsj 
If orward] m m m— " 
90 FOR 1=0 TO 24: READ DN$(I):NEXT 

102 READ ST$JREAD TG$ „ _ r -■ _ -, r -i_ 

110 DATA "[rvsl^Coff} •»•»•& own J U* backj"**-", "••••-[downj [5 backj^* 
&vs]«[off]","-»-»Cdowri][back]\**Cdown3L^ backH»[2 3paceJ»[space] I 

112 DATA "HpDacel* [down! [z back] - * [downlTj back]f»f2 8pao«J*/C 
fa back]V,"-r-ppace"]**rdown]['3 back]/* [down] [3 back]frvsTI [offJD 

•_pown]C? back]!" _. _, r , r , r -, r t_ 

114 DATA "J [si>ace]»»[downJ [? back]— [jsDaceJ »LdownJ [4 backjlrvsj^ 
••[space]\[down][1 back"]Lrvs]%[off] " r -j 

120 FOR 1=0 TO 5:READ EfcUJiNEXT L "J 

PRINT "[clear! [3 space] YOUR SHIP IS UNDER ATTACK BY ENEMY" 

PRINT "FIGHTERS. THE ENEMY FIGHTERS WILL 3E" 

PRINT "IN RANGE POR ONLY TWO MINUTES! YOU" 

PRINT "MUST DESTROY AS MANY AS POSSIBLE WHILE" 

PRINT "CONSERVING LASER POWER FOR FUTURE USE" 

PRINT "[down][T spacelUSE THE JOYSTICK TO AIM YOUR LASER." 

PRINT "CdownJD space]PRESS 'F* TO FIRE." 

PRINT "[downl[3 spacelPLACE JOYSTICK IN CENTER POSITION" 

PRINT "AND PRESS ANY KEY TO 3EGIN. • GOOD LUCK!" 

GET A3:IF A3 = "" GOTO 210 
220 POKE 40,l6:POKE 41 , 1 :SYS(977 ) 
230 A=255-PEEK(«*2)+256»(255-PEEK(U3) ) 

240 POKE 40,32:POKE 41 ,2 iSYS<977 ) 

250 B=255-PEEK(42)+256»(255-PEEK(43)) - 

260 A1=.?*A:31=.3*3 

261 A2=.7*A:32=.7*3 

262 A3*1.3»Al 33=1- 3*3 
261 A4=1.?»A:34=1.7*B 

280 HI=0:SH=0:LM=TI 

290 DY=12:RX=0iHO=2O:VE=12 

295 FOR 1=1 to 999: NEXT! PRINT " clear " 

100 Y=DY+RND(1)-.5:X=RX+2*RND(1) 

310 IF Y<2 THEN Y=2 

■>12 IF Y>21THEN Y=21 

114 IP X?35THEN PRINT "[clear l":GOTO 290 
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Figure 1: Pinout diagram 
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View of assembled reflex testing 
device. 



180 
181 
182 
183 
184 

185 
186 
187 
188 
210 




400 POKE 40,l6:POKE 41 ,1 :SYS(977) 

410 A=255-POKE(42)+256*(255-POKE(43)) 

420 POKE 40,12:POKE 41 ,2:SYS(977) 

430 B=255-POKE(42)+256«(255-POKE(43)) 

440 H=2:IF A>A1 THEN H=1:IF A>A2 THEN H=0:IF A>A3 

H=-llIF A>A4 THEN H=-2 

450 V=2iIF B>B1 THEN V=1:IF 3>32 THEN V=0sIF B>33 

V=-liIF B>B4 THEN V=-2 

460 H=HO+H:V=VE+V 

461 IF V>19 THEN V=19 

462 IF H>35 THEN H=35 
464 IF H<0 THEN H=0 
466 IF V<0 THEN V=0 

520 PRINT "[clear! ";DN$(V)TA3(H)ST$ 
530 PRINT "[home]-;DN8(Y)TAB(X)TG3 
5?5 IF TI-LM>7200 GOTO 700 
540 HO=H:VE=V:DY=Y:RX=X 

STAR ACE requires use of a joystick and the assembly language 
interface programs. Brackets, 0, are used to show special 
characters. For example, [3down] means three down cursor 
characters. 



550 GET AjlIF A3<>*F" GOTO 300 

555 PRINT "thomel"; "LASER'S FIRED! ":SH=SH+1 

556 C=PEEK(32580+40»V+H) 

560 IF C<>98 AND C0254 GOTO 300 
THEN 565 PRINT "Cclearl ";DN3( Y)TAB(X)E|(0) 

570 PRINT "Cclear3";DN$(Y)TAB(X)E$(l) 
THEN 575 FOB 1=1 TO 4 

580 FOR J=2 TO 5 

590 PRINT "[clear! ";DN3<Y+I)TAB(X)E$(J) 

595 NEXT JiNEXT I 

600 HI=HI+1:PRINT "[clearlHITS ";HI:PRINT "SHOTS FIRED ";SH 

610 GOTO 290 

700 SC=100*HI-(10*SH) 

710 PRINT "YOUR SCORE IS ";SC 

720 IF SC>499 THEN PRINT "[3 down] ACE! ! I ! CONGRATULATIONS.": 

END 

730 IF SC>249 THEN PRINT "[3 downlGOOD SHOOTING !" SEND 

740 IP SOO THEN PRINT "[3 d own] YOU NEED MORE PRACTICE": END 

750 IP SC<1 THEN PRINT "[3 downJYOU'RE LUCKY TO STILL BE 

ALIVE": END 
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Figure 2: Rear view of the PET Parallel User Port. All 
pins are on the bottom of the edge card. PAO is to the 
right. 
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Figure 4: Schematic of a response sensing device. 




Screen display from STAR ACE 
game. 




Figure 3: Schematic of a four device Interface. Connections to the computer are at the top. Jacks JO to J3 are 
phone Jacks for connecting sensors. All capacitors are Mylar. 



INTRODUCING . . . NIBBLE 

THE REFERENCE 
FOR APPLE COMPUTING 



nibble 



NIBBLE IS: 

A SOFTWARE GUIDE for high quality Applications 
Programs for your Home and Business. 

NIBBLE IS: 

A REFERENCE GUIDE to new Programming Methods . 

NIBBLE IS: 

A BUYERS GUIDE for making purchase decisions on 
new products. 

NIBBLE IS: 

A CONSTRUCTION PROJECT COOKBOOK for adding 
function and value to the system you already own . 

NIBBLE IS: 

A COMMUNICATIONS CLEARING HOUSE for users, 
vendors, and associations. 

Each issue of NIBBLE features at least one significant new application program of 
commercial quality. The programs in NIBBLE are surrounded with articles which show 
how to USE the programming methods in your OWN programs. 

Examples of upcoming articles: 

□ Modeling and Forecasting Your Business □ Build a Two-Tape Controller for $ 12 

□ Arcade Shooting Gallery — Save Your Quarters ! □ Data Base Management 
System I, II, III 

And many many more! NIBBLE will literally "Nibble Away" at the mysteries of your 
system to help you USE IT MORE. In 1980, the principal featured system is the Apple II. 

Try a NIBBLE 




© 1980 by micro-Software Publishing 
and Research Co. . 

Lincoln. Mass. 01773. All rights reserved. 
"Apple II is a registered trademark of 
Apple Computer Company 



nibble 

BOX 325 Lincoln. Mass. 01773 

I'll try NIBBLE! 

Enclosed is my 815 for 8 issues. 

D check D money order 



Name 



Address. 

City 

State 



Zip. 



Zoom And Squeeze 



A short program for the Apple II which makes it easier to 
edit BASIC programs. ZOOM provides a fast way to copy 
over a program line; SQUEEZE changes the screen width 
to 33 characters and eliminates embedded blanks. 



Gary B. Little 



ZOOM and SQUEEZE is a short 
machine-language routine written 
for the APPLE microcomputer in 
order to facilitate the editing of 
BASIC programs. It recognizes two 
commands: CTRL-Q and CTRL-Z. 
The CTRL-Q command causes the 
screen window width to be 
automatically set to 33 and the 
CTRL-Z command causes the cursor 
to quickly copy over all text from its 
current position to the end of the 
line. 

The ZOOM Feature 

In order to edit a program line on 
the APPLE it is necessary to more 
than simply move the cursor directly 
to the area to be changed, make the 
changes, and then press RETURN- 
the required procedure is to position 
the cursor at the beginning of the 
line number, copy down to the area 
to be changed (by using the right- 
arrow and repeat keys, make the 
changes, and enter the edited line. If 
the line is a very long one, the 
copying-over part of this procedure 
takes up an enormous amount of 
time which can be better used for 
other purposes. 

The 'ZOOM' part of the ZOOM and 
SQUEEZE routine can be used to 
speed up this copying tremendous- 
ly. By simply pressing CTRL-Z the 



cursor can be moved virtually in- 
stantaneously from its current posi- 
tion to the right edge of the current 
line while automatically copying 
over all the text on the screen in be- 
tween. For example, to copy over a 
program line that takes up three 
lines on the video screen takes only 
six quick steps after the cursor has 
been positioned at the beginning of 
the line number: CTRL-Z, right- 
arrow. CTRL-Z. right-arrow, 
CRLT-Z, RETURN. This takes ap- 
proximately 2 seconds to ac- 
complish. By way of contrast, to 
copy over the line in the ordinary 
way by using the right-arrow key in 
conjunction with the repeat key 
takes aproximately 13 seconds (see 
the NOTE below!) 

It is clear, then, that this feature 
could save hours of debugging time 
for a busy programmer. 

The SQUEEZE Feature 

When a line of a BASIC program is 
listed on the video screen with the 
window width set at its default value 
of 40 columns, the output is careful- 
ly formatted by the APPLE by 
embedding blanks on the left and 
right sided of the listing. That is to 
say, there is not a continuous 'wrap- 
around' display of the information 
that you typed in to create the line. 
For example, if you enter the line 



100 PRINT "THIS IN AN EXAMPLE 
OF A FORMATTED LISTING" 

and then LIST it, the APPLE will res- 
pond with 

100 PRINT "THIS IS AN EXAMPLE 
OF A F** 
****ORMATTED LISTING" 

where a '*' indicates an embedded 
blank. This formatting technique 
makes it very easy to read a LISTed 
line, but it can create a minor pro- 
blem when it becomes necessary to 
edit the line. 

The problem arises when, as in 
the example, the blanks are embed- 
ded between the quotation marks 
associated with a PRINT statement. 
If this line is to be edited without 
retyping it from scratch, the right- 
arrow key (in conjunction with the 
repeat key) must be used to copy 
over substantial portions of the line 
and by so doing all 6 of the embedd- 
ed blanks between 'P and 'ORMAT- 
TED' will mysteriously appear in the 
argument of the PRINT statement 
UNLESS they are skipped over by 
performing pure-cursor movements 
— i.e., repeated ESC-A commands 
or, for AUTOSTART ROM users, 
repeated K commands after ESC 
has been pressed. The need to per- 
form these pure-cursor movements 
is annoying and inconvenient to say 
the least. 
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This problem can be avoided if 
the window width is 'squeezed' to 33 
columns before LISTing the line and 
editing it. If this is done, the embed- 
ded blanks disappear and the line 
can be edited without worrying 
about the need to perform pure- 
cursor movements. 

The window width can be chang- 
ed to 33 be entering the command 
POKE 33,33 from BASIC immediate- 
execution mode. However, with the 
ZOOM and SQUEEZE routine in ef- 
fect all that need be done is to press 
CTRL-Q. The width can be returned 



to its default value of 40 by simply 
entering the command TEXT from 
immediate-execution mode. 

How ZOOM AND SQUEEZE Works 

ZOOM and SQUEEZE can be ac- 
tivated by BRUNning it from disk or 
by loading it, entering the command 
300G from the monitor, and then 
returning to BASIC. The routine 
resides from $300 to $33A. 

After it has been activated, the 
APPLE'S input hook at $38 (low), $39 
(high) is set equal to the ZOOM and 



SQUEEZE entry point at $309. 
Thereafter, all keyboard input is 
checked to see whether CTRL-Q or 
CTRL-Z has been pressed; if not, 
then nothing special happens. 

If CTRL-Q is pressed, the short 
subroutine beginning at $310 and 
ending at $316 is executed. All this 
subroutine does is store $21 
(decimal 33) at location $21 — this 
is the location in the monitor that 
contains the current window width. 
A blank is then displayed on the 
screen to indicated that this has 
occurred. 

If CTRL-Z is pressed, the 
subroutine beginning at $317 is ex- 
ecuted. What happens then is that 
the characters displayed on the 
screen from the current cursor posi- 
tion to the end of the line are placed 
in the input buffer one-by-one. If the 
buffer is overflowed, the program 
line will be backslashed and 
cancelled in the ordinary way. 

Details of the programming 
algorithms involved can be easily 
deduced by inspecting the accom- 
panying source listing for ZOOM 
and SQUEEZE. 

NOTE: it is possible to speed up the 
repeat-key function by soldering a 
100K resistor in parallel to the 
resistor at position R4 on the APPLE 
keyboard unit. For details, see the 
article 'REPEAT KEY SPEED-UP' by 
V.R. Little in the February 1980 edi- 
tion of APPLEGRAM, the newsletter 
of the Apples British Columbia 
Computer Society, Vancouver, B.C. 



Gary B. Little first became in- 
terested in computers by writing 
data analysis programs in FOR- 
TRAN on an IBM 370/168 for an M. 
SC. degree in Physical Chemistry 
(Microwave Spectroscopy). 
Ultimately he became interested in 
microcomputing and purchased an 
APPLE II micro 1 Vi years ago. 

He was past president of APPLES 
BRITISH COLUMBIA COMPUTER 
SOCIETY, an an APPLE user group 
located in Vancouver, B.C. Gary is 
currently the treasurer of this group. 
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EDUCATIONAL SOFTWARE 
for the APPLE II and APPLE II PLUS 

VERBAL SKILLS 

Diskettes with Applesoft Programs and data base can be used to Im- 
prove verbal skills Interactively. Intended as study aids for college board 
type exams (E.G.. SAT. ORE. LSRT. P.CT. mm. ETC). Programs Include a resi- 
dent editor for expanding or modifying data lists. Realistic multiple choice 
questions are generated with several options. Requires no computer ex- 
perience making It ideal for students. 



Vocabulary Bullder- 

flnalogy- 

Sentence Completion- 
Verbal Skills Pak- 



Over 1600 entries with op- 
tion of matching synonyms 
or antonyms - 219.95 
Over 1200 word relation- 
ships - J19.95 
Equivalent to 6 SOT tests 
-219.95 

fill three diskettes for Just 
«44.95 



SLIWR ENTERPRISES 

EDUCATIONAL SOFTWfiRE DEPfiRTfTlENT 

POST OFFICE BOX 7266 

HfimPTON. VIRGINIR 23666 

' Apple Is a registered trademark of Rpple Computer. Inc. 




WRITE OR CALL FOR MORE INFORMATION 

soutnujestenn data systems 

P.O. BOX 582-M . SANTEE. CA 92071 . 714/562-3670 



HAS YOUR APPLE READ ANY GOOD 
PROGRAMS LATELY? 

APPLE II DISK SOFTWARE 
DATA BASE MANAGER 
IFO PROGRAM 

The IFO (INFORMATION FILE ORGANIZER) can be used for many ap- 
plications such as sales activity, check registers, balance sheets, 
client/patient records, labratory data reduction, perscrlption informa- 
tion, grade records, mailing lists, A/R, job costing and much more. This 
can be accomplished easily and quickly without prior programming 
knowledge. 

Up to 1000 records with a maximum of 20 headers (catagories) and 10 
report formats (user defined) can be stored on a single diskette, informa- 
tion can be sorted on any header, both ascending and descending in 
alpha/numeric field. Mathematical functions can be performed on any 2 
fields to manipulate the information. Information can be searched on 
any header using >,<,= >,= <, = , and first letter. Mailing list format 
provided. Fast assembly language sort, search and read routines. Many 
error protection devices provided. Put your application program 
together in minutes instead of hours. ».,„,.„,. 

PROGRAM DISKETTE and instruction manual....$1 00.00 

MAILING LIST PROGRAM...S40.00 
INVENTORY PROGRAM 

2 disk drives, menu-driven program. Inventory categories include: 
STOCKS, DESCRIPTION, VENDOR ID, CLASS, LOCATION, REORDER 
PT., REORDER QTY, QTY ON HAND. All records can be entered, chang- 
ed, updated, deleted, or viewed. Reports can be sorted in ascen- 
ding/decendlng order by any category. There are 7 search reports (3 
automatic). Calculates $ VALUE of inventory and YTD, MTD, and period 
items sold, Accumulates inventory over a 13-month period. Plus much 
more. Requires a 132-column, serial/parallel printer, Complete turnkey 
operation with bootstrap diskette. 
Program diskett and instruction manual. ..$140.00 
PAYROLL PACKAGE 

2 disk drives, menu-driven program. Employee history include: NAME, 
ADDRESS », ADDRESS #2 CITY, STATE, ZIP, FED EX, STATE EX., 
SOCIAL SEC.#,DATE EMPLOYED, DEPT #, CODE, EMPLOYEE #, 
STATUS, MARITAL STATUS, PAY RATE, OT RATE, VAC RATE, # VAC 
HRS. and PENSION PLAN. Program can generate weekly or biweekly 
payroll. Prints W-2, QTR REPORT, PAY CHECKS, MASTER AND CUR- 
RENT files. FEDERAL and STATE witholding taxes are built into pro- 
gram. Maintains a CASH DISBURSEMENT journal, Accumulates payroll 
for a 53 week period. Generates numerous type of payroll reports. 
Allows data to be searched, sorted and edited. Prints DEDUCTION 
register and more. Maintain up to 125 EMPLOYEES/EXPENSES for 
quick and easy PAYROLL. Numerous error protection devices provided. 
PROGRAM diskette and instruction manual. ..$240.00 
•PLEASE SPECIFY STATE WHEN ORDERING 

APARTMENT MANAGER 

2 disk drive, menu driven program written in assembly language and AP- 
PLESOFT II. All you will ever need to manage your apartment. Handles 
up to 6 BUILDINGS with a maximum of 120 units each. Complete turn- 
key operation. Data categories include APT #, TYPE, TENANT NAME, 
PETS, CHILDREN, SECURITY DEP., PET DEPOSIT, POOL DEP, M1SC 
DEP, RENT ALLOWANCES, DATE MOVED IN, VACANCY DATE, REF- 
FERAL, CONDITION OF APT, DAMAGE AMT and COMMENT LINE. 
Search, sort, enter, edit and vacate tenates. Maintains a MTD and YTD 
rent recipts as well as complete utility reports, rent lost by vacancies. 
Maintains expenses, vacated tenants report and much more. 
PROGRAM DISKETTE and INSTRUCTION MANUAL..$350.00 

PROFESSIONAL TIME AND BILLING 

2 disk drive program written in assembly language and APPLESOFT II. 
Completely menu-driven, Maintain all billing of clients and personnel. 
Generates and invoices. Numerous reports based on all types of 
criteria. Easy data entry for RATES, CLIENTS, and MATTERS. Has 
SEARCH, SORT, CHANGE (on screen editing), VIEW and BALANCE 
FORWARD. IF your are a JOB CONTRACTOR, ATTORNEY, ACCOUN- 
TANT, GENERAL CONSULTANT, or anyone that needs to charge for 
time, this program is a must. Complete turnkey operation. Numerous 
REPORTS are produced to aid in the TIME ANALYSIS PROCESS. All this 
and much more. 
PROGRAM DISKETTE and INSTRUCTION MANUAL...$325.00 

SPEED READING 

PROGRAM DISKETTE AND INSTRUCTION 

MANUAL...S100.00 

ALL PROGRAMS REQUIRE 48K and APPLESOFT II ON ROM OR AND 
APPLE II PLUS. ALL SOFTWARE IS COMPATABLE WITH PASCAL 
SYSTEMS. PROGRAMS RUN FROM ANY PORT OF THE COMPUTER 
WITH SERIAL/PARALLEL PRINTERS. REQUIRES 1 DISK DRIVE 
UNLESS OTHERWISE NOTED. 
SEND CHECK/MONEY ORDER or C.O.D. To: .____ 

SOFTWARE TECHNOLOGY for COMPUTERS 
P.O BOX 428 
BELMONT, MA 02178 

OR AVAILABLE FROM YOUR LOCAL DEALER. 



PROGRESSIVE SOFTWARE 



Missile— Anti— Missile (Aplsft) 



Presents 
Software and Hardware for your APPLE 

Curve Fit 





Polar Coordinator Plot 



By Dave Garson 
Tape-$9.95 Disk $14.95 





by TD Moteles 



Tape-$9.95 Disk-$ 14.95 



Sales Forecast provides the best forecast using the four 
most popular forecasting linear regression technques. 
Neil D Lipson Tape-$9.95 Disk-$14.95 

Single Drive Copy is a utility program, written by Vince 
Corsetti in Integer BASIC, that will copy a diskette using 
only one drive. Tape-$19.95 Disk-$24.95 

Touch Typing Tutor teaches typing. Indicates speed and 
errors made. Finger Bids, Gen.Typing, Basic Language 
and User Supplied. Diskette. Written by Wm. A. 
Massena. $19.95 

Apple Menu Cookbook index-accessed data 
storage/retrevial program. Recipes stored, unlimited lines 
per entry. Easy editing. Formulated after N.Y. Times 
Cookbook. Other useful features included. Written by 
Wm. Merlino, M.D. $19.95 

Mailing List Program maintains complete record of name, 
address, phone no., mailing lables acommodated parallel 
card or built-in printer, easy data entry. 
Diskette 32K $19.95 

Utility Pack combines five versitile programs by Vince 
Corsetti, for any memory configuration. Applesoft 
Update* Integer-to Applesoft conversion * Integer BASIC 
copy * Binary Copy Disk 

Append Tape-$9.95 Disk-$14.95 
Solitare — Old European peg game, played by one 
(similar to Chinese checkers). Object — to finish with last 
peg in center. Written by Charles B. 
Smith Tape-$9.95 Disk-$14.95 

Water the Flowers — Math (add., subt., mult., div.,(grades 
1-6 (disk). A graphical program that teaches math. 
JudyPegg ' $19-95 

Catch the Pig — Educ. Pkg, 2, An upper grade school 
game that teaches all four quadrants of the cartesian 
coordinate system. 4 students play at one time with many 
levels of play. Aso included is a Linear Version for lower 
grade school children. Written by Judy Pegg. 

Tape-$9.95 Disk-$14.95 
Financial Pak — 2. Calculates interest rates on bonds 
that is based on due date and days between dates. By 
Neil D. Lipson Disk-$14.95 

■ Programs accepted for publication 
• Highest royalty paid 



U.S. and foreign dealer and distributor inquires invited 
All programs require 16K memory unless specified 
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FILES 
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"Builds Serial Files 

'Changes Serial Files to random access Files 
"Adds to End of Serial Files 

■Record insertion and deletion anywhere in Serial File. 
"Move individual records or blocks of records within 
Serial Files 

A File manipulator that allows the user to search for a str- 
ing within a file, sort date by blocks handle many files at a 
time (without exiting the program and saves executed 
files. A file can be saved under many names, viewed in 
several modes, and dumped (totally or partially to a 
printer). 

If you would like to or work with files you must own this 
program! Comes with 10-page doumentation in a binder. 
Because of the size and weight of this program postage 
and handling charge is necessary. 
FILES-Disk only.$49.95 plus $4.95 postage and handling. 
Written by Marc Goldfarb. 
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ROSTER 



■to 



'A complete package for Educators! Roster is a general 
purpose disk-based record-keeping program for teachers 
at all levels. It allows instructors to create and change 
class rosters label, enter and change tast or assignment 
scores, sort the roster based on student number, student 
name, or rank in class, assign character or numeric 
grades based on any of five criteria (raw score, percent, 
rank percantile rank or Z-score) and Lists scores, totals 
(or averages), and /or grades according to any of these op- 
tions. 

Roster on Disk (only) $49.95 plus $4.95 

Postage and Handling. 
Written by Douglas B. Eamon, Ph.D. 

Hardware 

Light Pen with seven supporting routines. Some of these 
are light meter, light calculator, Light pen, ;and Light pen 
TIC TAC TOE. The light pen connects points in high or low 
resolution graphics. Neil Lipson's program uses artificial 
intelligence; the pen is not confused by outside light. Re- 
quires 48K and Applesoft in ROM. $24.95 
Plus $3.00 Postage and handling. 

TO ORDER 

Send Check or Money Order to: 

P.O Box 273 

Plymouth Meeting, PA 19462 

PA residents add 6% sales tax. 



POSTAGE AND HANDLING 

Please add $1 50 for the first item and $1 .00 for each additional item. 



QUICK CHANGE ARTISTRY 




ENGINEERED SPECIFICALLY FOR 
THE KIM-1 MICRO COMPUTER 

• Protection of Chips and 
Other Components 

• Viewing Angle of Readout 
Enhanced 

• Improved Keyboard Position 
for Easier Operation 

EASILY ASSEMBLED 

• Absolutely No 
Alteration of KIM-1 Required 

• All Fasteners Provided 

• Goes Together in Minutes 
with a Small Screwdriver 



ATTRACTIVE FUNCTIONAL PACKAGE 

• Professional Appearance 

• Four Color Combinations 

• Improves Man/Machine Interface 
MADE OF HIGH IMPACT STRENGTH 
THERMOFORMED PLASTIC 

• KydexlOO* 

• Durable 

• Molded-ln Color 

• Non-Conductive 
AVAILABLE FROM STOCK 

• Allow Two to Three Weeks for 
Processing and Delivery 

• No COD's Please 

• Dealer Inquiries Invited 



TO ORDER: 1. Fill in this Coupon (Print or Type Please) 
2. Attach Check or Money Order and Mail to: 



NAME . 
STREET. 
CITY 



STATE 



ZIP 



Please ShiD Prepaid — 

@ $24.50 Each 
California Residents please pay 

$26.09 (Includes Sales Tax) 



.SKE1-1(s) 



f TM Rohm & Haas 



enclosures 
group 

771 bush street / san francisco, California 94108 



Color Desired blue □ beige □ 
black □ white □ 



Patent Applied For 



Welcome to the second issue of the Ohio Scientific 
Small Systems Journal in Micro. 

In this issue, Ohio Scientific is pleased to introduce a 
new concept in computer interfacing — the Sixteen Pin 
I/O BUS. The BUS concept as well as several boards and 
applications are covered in the following pages. 

Also in this issue, a short, graphics oriented game in 
BASIC called 'FOO' is presented. 

Reader suggestions on article content are welcome. 
Please submit them to: 
Ohio Scientific, Inc. 
Small Systems Journal 
1333 S. Chillicothe Rd. 
Aurora, Ohio 44202 

The Ohio Scientific Sixteen Pin I/O BUS 

Ohio Scientific is pleased to introduce a unique new 
product line — The 16 Pin I/O BUS. With this system it is 
possible to add up to eight special function boards while 
occupying only one backplane slot. 

This is made possible by a novel BUS extension 
method which allows decoding, timing and eight bits of 
data to be carried on standard, inexpensive 16 pin ribbon 
cables. 

Up to eight inexpensive 16 pin cables with standard DIP 
connectors may be attached to a single CA-20 board 
which in turn occupies one slot of the standard 
Challenger backplane. Alternately, one 16 pin I/O BUS 
cable may be attached to the CA-1 5 board at the rear of all 
C4P and C8P products. Note, in the case of the C4P-MF 
this allows system expansion beyond the normal four slot 
backplane. 

Currently.five HEAD END CARDS are available for inter- 
connection to the system via the CA-20 or CA-1 5 boards. 

Computer Interface to Sixteen Pin I/O BUS 



The 16 pin I/O BUS may be attached to your computer 
via two different boards — the CA-15 or the CA-20. The 
descriptions of these boards are as follows: 

CA-15 Board 

The CA-15 board is a standard accessory interface in- 
stalled on the following Ohio Scientific systems: C4P-MF, 
C4P-DMF, and C8P-DF. 

The CA-15 is mounted at the rear of the computer and 
contains the following interface connections: 

Joystick and numeric keypad 

Modem and serial printer 

Sixteen PIA lines (normally used for the Home Security 
system — AC-17P) 

Sixteen Pin I/O BUS 

The interconnect for the Sixteen Pin I/O BUS is simply a 
16 pin DIP socket. To use the BUS, all that you have to do 
is attach one end of the 16 pin ribbon cable to the CA-15 
board and the other end of the cable to one of the HEAD 
END CARDS. 



Please note that some of the HEAD END CARDS re- 
quire more power than may be practically carried via the 
ribbon cable alone. Therefore, some of the cards require 
auxiliary power supplies. 

CA-20 Board 

The CA-20 board contains all the necessary logic to 
decode eight distinct HEAD END CARD interfaces. The 
actual interconnect, as with the CA-15, is via simple 16 pin 
DIP sockets and standard 16 pin ribbon cables. 

The CA-20 board also requires one slot of your com- 
puter's backplane. But remember, from this one slot you 
gain access to a maximum of eight accessory boards. 

The CA-20 is recommended for use in the Ohio Scien- 
tific C2 series and C3 series computers. It can also be in- 
stalled in C4P and C8P series systems with some 
modification to the CA-15 interface. 

Since the logic required for the I/O BUS interface is 
pretty simple, an additional feature was added to the 
CA-20 board — a crystal controlled 'time-of-day' clock 
(hardware) subsystem. The operation of the clock, excep- 
ting reading time and setting time, is totally independent 
of the host computer.As a matter of fact, with the includ- 
ed on-board, auto-recharging, battery back-up, your com- 
puter may actually be turned off for several months 
without losing time. 

The features of the clock subsystem are as follows: 

Hours, minutes, seconds and 1/10 seconds 
Day of week 
Day of month 
Month of year 
Four Year calendar 

If you happen to own (or use) a C2 series or C3 series 
computer.the CA-20 board can actually control the power 
cycling of the entire computer when equipped with an op- 
tional power sequencer package. This means you can 
preset a time (month, day.hour.etc.) within the clock sub- 
system and that preset time agrees with the actual time, 
A.C. power is applied to the entire computer system 
through the power sequencer.At a later time, the system's 
A.C. power may also be removed and the system shut 
down under software/clock subsystem control. 

For applications where the clock subsystem is not re- 
quired, the CA-20A will perform all the Sixteen Pin I/O BUS 
functions associated with full-feature CA-20. 

HEAD END CARDS 

HEAD END CARDS is a general name used to describe 
any or all of the special function boards which attach to 
the Ohio Scientific Sixteen Pin I/O BUS. There are current- 
ly five such boards and, with the exception of the CA-22, 
they will only interface with the computer via the Sixteen 
Pin I/O BUS. 

Please note, as detailed earlier.you must use a CA-15 or 
a CA-20 board at the 'computer end' of the Sixteen Pin I/O 
BUS to complete the interface. 

In the following pages, a brief product and application 
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description of the currently available HEAD END CARDS 
will be presented. 

Bit Switching and Sensing — The CA-21 

The CA-21 is a 48 line parallel I/O board featuring three 
6821 PIAs (peripheral interface adapters) and prototyp- 
ing/interconnect areas. 



The use of PIAs in the design allows for maximum inter- 
face versatility as you may configure any one of the 48 I/O 
lines as either an input or an output. As outputs, each line 
is capable of driving a minimum of one standard TTL load. 

Additional versatility is added because 24 of the lines, 
when configured as outputs, may simultaneously func- 
tion as inputs. This feature, although somewhat confus- 
ing, is extremely useful for applications such as switch 
matrix decoding. 

Each of the 48 lines is brought out to two foil pads 
(suitable for wire wrap stakes) as well as a location on 
one of four 12 pin Molex-type female edge connectors. 
There are also eight 16 pin DIP socket locations which are 
intended for use as prototyping areas. Additionally, the 12 
PIA 'hand-shaking' lines are brought to 12 single foil pads. 

The CA-21, with proper buffering, may be used for vir- 
tually any computer controlled bit switching or bit sens- 
ing application that you can imagine. With a full comple- 
ment of eight CA-21 s interfaced via the CA-20, a total of 
384 individually controllable I/O lines are possible! 

An interesting application using one CA-21 board 
would be a complete, is somewhat slow, emulation of the 
standard Ohio Scientific BUS. 

A more standard application might be augmenting the 
standard Home Security System (AC-17P) with 'hard-wired' 
sensors. 

One type of sensor you could easily add is a standard 
windor 'perimeter detector'. This could be done with com- 
mercially available adhesive foil tape. You could then 
detect a break-in (through a broken window) by sensing a 
break in the foil tape. 

Another useful application you could set up in concert 
with the AC-12P wireless A.C. Remote Control, might be 
sensing when a room is entered. You could accomplish 
this with pressure-switch door mats or door switches. 
When room entry is detected, the lights could be turned 
on or, turned off on exit. 

If you are designing any sort of dedicated control 
system, the CA-21 is an ideal choice. You can easily 
sense innumerable types of input (pressure transducers, 
flow sensors, switches, etc.) while controlling outputs 
from a simple single LED display to a network of solid 
state relays controlling A.C. power. 

EPROM Programmer — The CA-23 

The CA-23 is an EPROM programmer designed for use 
with the growing families of 5 volt only EPROMS. With the 
CA-23 you can program and verify all 1K through 8K byte 
EPROMS of this type. Note these parts are often iden- 



tified as 8K — 64K bit EPROMS. 

The CA-23 can program (or verify) data in two basic 
modes — EPROM to/from EPROM or EPROM to/from 
computer RAM memory. Additionally, EPROM data may 
be read directly into the computer's RAM memory. 

There are four LED indicators on the CA-23. The first is 
'SOCKET UNSAFE'. This means that a programming 
voltage is present at the socket and if you insert or 
remove an EPROM it is likely to be damaged. 

The second indicator is 'PROGRAMMING'. This means 
that your EPROM is currently being programmed. 

The third indicator is 'ERROR'. This means that 
somewhere along the line your programming attempt was 
unsuccessful. 

The final indicator is 'PROGRAM COMPLETE'. This 
means that your program and verification was suc- 
cessful. 

The most intriguing application for this product is the 
creation of 'custom' parts for your computer or 
peripherals. This could range from a new system monitor 
to a new high level language. It could even include a new 
character generator for your CRT or printer. Note, 
however, tinkering around with the internals of computers 
and peripherals requires a fairly high degree of technical 
expertise. Also, most manufacturer's warranties are void- 
ed by these types of modifications. 

Several OEM (original equipment manufacture) and 
Research/Development applications will be immediately 
obvious to those you involved in that work. 

The CA-23, as previously mentioned, is designed for 
use with 1K through 8K byte EPROMS. These parts come 
in various package styles and have various product 
names. For example, Intel's 2Kx8 part is the 2716, Texas 
Instruments' part is known as the 2516. 

The CA-23 has both 24 pin and 28 pin zero insertion 
force sockets for reading, programming and verifying the 
EPROMS. 

Prototyping — The CA-24 

The CA-24 is a solderless bread-board designed for 
proto-typing, experimental and educational applications. 

The bread-boarding is made up of seven solderless 
plug-strips of the type manufactured by AP Products. Two 
of the plug-strips contain a connection matrix of 5 by 54, 
connecions and are used as signal distribution points. 
Another pair of 96 location plug-strips are for powering 
the bread-board area. The actual experimenter area is 
comprised of three plug-strips, each with a 10 by 64 loca- 
tion connection matrix. Additionally, sixteen LED in- 
dicators and sixteen DIP switch positions are provided for 
signal observation and control functions. 

Board I/O is via TTL latches and bi-directional PIA ports 
as well as direct (buffered) data, signal and control lines 
from the computer BUS. This method allows you to direct- 
ly interconnect devices such as 6850 ACIAs in addition to 
doing more 'isolated' and/or independent circuits. 
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The CA-24 also contains a 'clock' generator which is 
continously variable from approximately 25,000 Hz. 
through 70,000 Hz. You may also connect the clock to an 
on-board 16 stage divider chain. This allows division of 
the fundamental frequency by as little as 2 1 (2) to as 
much as 2" (65,536). 

The applications for the CA-24 are primarily prototyping 
and experimenting. Parts may be inserted and removed 
from the terminal strip blocks over and over. Interconnec- 
tion of parts is accomplished simply with solid, narrow 
guage wire jumpers. Errors in design or connection are 
extremely easy to correct. 

The CA-24 lends itself very well to structured ex- 
periments that are common in the educational environ- 
ment. It is an ideal tool to aid in the teaching of computer 
and computer interface fundamentals. 

Accessory Interface — The CA-25 

The CA-25 is designed to implement some of the func- 
tions normally associated with the CA-15 interface board. 

It allows you to directly connect the Home Security 
System (AC-17P) and/or the Wireless A.C. Remote Control 
System (AC-12P) to C2 and C3 series computers. Addi- 
tionally, if you own an older Ohio Scientific computer, you 
can now easily connect these systems to it. 

An extremely useful application of the CA-25 is 
associated with small business systems. Using the CA-25 
with the Home Security System, and perhaps a CA-15V 
(Universal Telephone Interface with speech synthesizer 
output), the computer could do payroll, inventory, etc. by 
day and 'guard' the shop by night. 

Analog I/O - The CA-22 

The CA-22 is a high speed analog I/O module. Although 
the CA-22 is classified as a HEAD END CARD, it differs 
from the rest of the family in that it may also be plugged 
directly into the computer's standard internal BUS. This 
allows for maximum flexibility in the use of the CA-22. 

The analog input section of the CA-22 consists of a 16 
channel analog multiplexer. This means that you may 
connect up to 16 separate signals directly to the CA-22. 
Also included is a sample and hold circuit followed by the 
analog to digital converter circuitry. 

The A to D converter is capable of either 8 bit or 12 bit 
operation. You may select these options under software 
control. 

The accuracy of the converter is plus or minus one in 
the least significant bit. The stability of the circuit is rated 
at one millivolt drift per degree Centigrade. 

The A to D conversion is extremely fast. It is capable of 
digitizing up to 66,000 samples per second in the 8 bit 
conversion mode and 28,000 samples per second in the 12 
bit mode. Shannon Sampling Theory states that signals 
should be sampled at twice their frequency. Therefore, it 
is possible for you to convert signals with a frequency 
greater than 30K Hz. Clearly, high fidelity audio is well 
within the spectrum of the CA-22. 



The multiplexer has very high impedance inputs and is 
capable of accepting inputs in the range of -10 volts 
through +10 volts. The input is jumper selectable for 
other settings including a single sided range of through 
+ 10 volts. 

Due to the indeterminable nature of the actual inputs 
that you may actually apply to the CA-22, only the 
multiplexer inputs are brought out. However, a quad op- 
amp is laid out in foil which you may populate in several 
different modes to handle some of the more 'common' in- 
put configurations. 

The analog output section of the CA-22 consists of two 
identical high speed digital to analog converters. Each 
DAC can convert either 8 bits or 12 bits of data. Data input 
to the DACs is latched in such a manner that, when in the 
8 bit conversion mode, the other four (of the total of 
twelve) bits are continuously output at a predefined value. 
You may, of course, define that value under software con- 
trol. 

The output of each DAC is buffered with a high speed 
op-amp capable of changing 20 volts every microsecond. 
The standard configuration of each output is bi-polar with 
a voltage swing of -10 volts through +10 volts. This is 
jumper selectable to allow a uni-polar output of 
through + 10 volts. 

Some additional I/O capacity is provided on the CA-22. 
There are three TTL level inputs and six open collector 
logic outputs. These are strappable to be either standard 
TTL level outputs or high-voltage outputs. 

You can use the CA-22 for a multitude of analog sens- 
ing and/or analog controlling applications. 

Using the proper transducers and the 16 input chan- 
nels, you can monitor the temperature in several zones of 
a home or office. By extending this system with a CA-21, 
you could maintain precise temperatures by switching 
the proper controls on and off. 

Another interesting, if somewhat obvious application, 
is in audio processing. Reverberation, phase shifting and 
echoing are just a few of the uses you could implement. 

If you used blocks of RAM for data storage, other ap- 
plications such as frequency doubling, etc., could be ex- 
perimented with. 

If you apply more sophisticated software techniques, 
such as a fast Fourier transform, on stored input data, 
very elaborate signal processing becomes realizable. Pro- 
jects such as sudio spectrum analyzers and speech 
recognition experiments are certainly practical. Note, in 
these types of applications you are likely to find some 
signal pre-processing in hardware is certainly beneficial - 
if not totally necessary. 

If you employ both DAC outputs and the onboard un- 
blanking circuit, X-Y oscilloscope plotting is an in- 
teresting application. By using these techniques and one 
or more of the analog inputs, you can construct a digital 
storage scope. Note, both of these applications require 
that you have access to an oscilloscope capable of X-Y in- 
put as well as blanking. 
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Summary 

With the introduction of the 16 pin I/O BUS, Ohio Scien- 
tific has opened a new world on interfacing capabilities 
for both the large and the small computer user. 

Systems ranging from totally automated sampling and 
control stations to complete R/D setups to educational 
lab stations are now available to you via standard 
building blocks and standard computer systems. 

For pricing and availability, contact your nearest Ohio 
Scientific dealer. 

FOO 

This is an amusing graphics game that simulates a 
twisting road scrolling up from the bottom of the screen. 
You must avoid going off the road. Speed and road width 
are selectable. Pedestrians are also optional, with a 
bizarre twist. At your option pedestrians are to be avoided 
or run down for points. FOO runs on disk based C4P and 
C8P video systems. The tone generator is used to provide 
sound. The program is easily adapted to OSI BASIC-in- 
ROM computers. 

100 POKE 2893,55:P0KE2894,8:P0KE2073,96 

110 BS=55040:SM=2:MS=l:KY=57088:ME=54l44+15:MI=0:RN=0 

115 MLX=0 

117 SN=255 

120 LP=5 

130 PL=2/LP 

135 P0KE57089.1 

140 P0KE9680,32:P0KE56832,2 

150 C=226 

155 KP=0 

160 IFA$^ ' Y ' THENHE=EM : WI=UF : GU=UG : GOT0270 

170 FORI=1T030:PRINT:NEXTI 

180 PRINT' F0 0' 

190 PRINTrPRINT' RACEWAY' 

200 PRINT : PRINT ' You run at your own risk ! ' 

210 PRINT : PRINT ' <== LEFT=1 RIGHT=2 ==> ' 

215 PRINT: PRINT 'OVERDRIVE=RUB0UT' 

220 PRINT : PRINT ' SUGGEST UIDTH=20 , DELAY=20 ' 

230 PRINT: INPUT 'INITIAL WIDTH (0-30) ' :WI 

2-40 PRINT: INPUT 'DELAY (1-20) ' ;ME:EM=ME 

245 PRINT 

250 GU=0 : INPUT ' PEDESTRIANS 

(Y/N)';X$:IFLEFT$(X$,1)='Y'THENGU=.3 

255 UG=GU: PRINT 

257 IFGU=0THEN270 

260 KP=0: INPUT 'KILLER FOO 

(Y/N)';X$:IFLEFT$(X$,1)='Y'THENPK=1 

270 PRINT: PRINT 'Hidden wonders await 

the': PRINT 'Masters!' 

280 FORI=1T030: PRINT :NEXTI 

290 WD=WI : WF=WI : ME=55104+15-ME*64 : WT= (30-WI ) /2 

295 IFA$='Y'THENRETURN 

300 F0RM=1T0LP : G0SUB600 : GOSUB500 : HL*=HL«+1 : NEXTM 

350 WI=WI-1 

360 LP=LP*l.l4 

370 IFWI>4THEN300 

380 SM=SM+.2:MS=MS+.l 

400 F0RM=1T0LP : GOSUB600 : G0SUB500 : MLX=MLI+1 : NEXTM 

450 WI=WI+1 

460 LP=LP«.85 

470 I FW I< WDTHEN400 



475 IFWD<2THENWD=WF 
480 WD=WD*.75 
490 G0T0300 

499 REM OUTPUT A FRAME 

500 RN=RN+SM*RND(1)-MS 
510 WT=WT+SGN(RN) 

520 IFWT+WI > 28THENWT=WT-1 : RN=0 : G0T0520 

530 IFWT<0THENWT=0:RN=0 

540 IFWI>8ANDRND(1) <GUTHENP0KEBS+WT+1+INT 

(UI*RND(1)),240 
550 PRINTSPC(WT) ; ' >< ■ ;SPC(WI) ; ' >< ' 
560 RETURN 

599 REM MOVE BALL 

600 POKEKY,128:K=PEEK(KY):KK=0:POKEKY,64:K2=PEEK(KY) 
610 IFKAND128THENME=ME-1:KK=-1+0»RND,(1) 

620 IFKAND64THENME=ME+1:KK=1 

630 IFK2AND4THENME=ME+KK 

640 IFPEEK(ME) < >32THEN700 

650 POKEME.C 

660 RETURN 

700 GY=PEEK(ME) : IFGY=240ANDPKTHENKP= 

KP+1 : GOSUB2000 : G0T0650 
710 POKE 2073,173 
715 F0RI=100T0250STEP5 : P0KE57089, I : NEXTI 

719 POKE57089.1 

720 PRINT ' YOU BLEW IT ! ! I ' 
725 PRINT 

730 MI=MLJ«PL 

750 PRINT' AFTER ';MI;' MILES' 

755 IFPKTHENPRINT' AND ';KP;' KILLS' 

757 PRINT. -PRINT'TOTAL 

POINTS: ';INT(MI+4«(1-PK)*MI+100«KP) 
760 GOSUB1000 
770 K=l 

780 F0RI=lTO1000»K:NEXTI 
790 IFPEEK(KY)OlTHEN790 
800 POKE9680.95 
805 POKE57089.1 
810 GOT05000 

1000 IFPKTHENWD=KP:GOT01030 
1010 WD=MI/WF 

1030 PRINT: PRINT 'Congratulations! ' 
1040 PRINT 'You may now call yourself 
1050 PRINT: PRINT' '; 

1060 IFWD < 3THENPRINT ' LITTLE ' ; : GOT01200 
1070 I FWD < 5THENPRINT ' TENDER ' ; : GOT01200 
1080 IFWD < 12 . 5THENPRINT ' MEDIOCRE ' ; : G0T01200 
1090 IFWD<25THENPRINT'BIG';:GOT01200 
1100 I FWD <38THENPRINT' MASTER ' ; :GOT01200 
1110 IFWD < 50THENPRINT ' GRAND ' ; : GOT01200 
1120 PRINT 'CHEATER'; 
1200 PRINT' FOO'; 
1210 IFGY=240THENPRINT' KILLER'; 
1220 PRINT' I' 
1230 RETURN 
2000 SN=SN-5 
2003 IFSN=50THENSN=255 
2005 P0KE57089,SN 
2010 POKE 57089,1 
2020 RETURN 

5000 INPUT'AGAIN';A$:A$=LEFT$(A$,1) 
5010 IFA$O'Y'THEN6000 
5020 INPUT'SAME';A$:A$=LEFT$(A$,1) 
5025 IFA$<>'Y'THENCLEAR 
5030 GOTO100 
6000 END 
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APPLE 

TAPE DISK 

One-Arm 8andil(32K, INT) 9 95 14.95 

Card Shark (INT) 7.95 9.95 

Hi - Roller (Applesol I) 7.95 995 

Hi-Res Sub Game(32K) 14.95 19.95 

Adult Game Pak(16K) 7.95 9.95 

TEM A(16 10 48 K. specily) 1995 24.95 

PCS A ssembler (48K) 34.95 39.95 
PCS D I sa ssem bier 

(Our Assembler req'd) 14.95 16 95 
Programmer Pak 

( Assembler* Disasmblr) 46 95 4995 



AIM, KIM, SYM 



PCS Di sassemb ler 



75.00 



We also carry the complete 
HDE. Inc. line ol products. 

CUSTOM PROGRAMMING 



Progressive Computer 

Software 

405 Corbi n Road 

York, PA 17403 

(717)845-4954 




software and Hardware 
for Business Education 
Entertainment 

Recent Arrivals: 

a stellar irek tne definitive Hi-Pwcoiiwvefsioncf tneoaM'C 
Star trek game Tnree OiffefeniKUnaonooooneot* Many 
ccmmana Derogative* Irom u« o< weapons 10 repair of damages 
NeeaafiK Applesoft HOMOfSfc $24.95 

cashmaster tie front counter casn 'egrtter system Records 
up to 100 transactions earn oav or shift Accounting of oauv 
money transact ions ana inventorv turnover Holds 1000 inventory 
Hems HasomerpowerfulOPHOns Neeas48KADOk?soft POM 

dual diSk drives flO coHjmn onnter $250.00 

CASHORAWfP $200.00 - $ 10.00 STUDDing 

For Software only aOO $2.00 0.$ I S$ 00 Foreign shipping cnarg.es 
California residents ado 6*> Don t see what you want here 
tKtN wf ite or can todav for your free software ano hardware 
catalog 




Garden Plaza Shopping Center 

9719 Rcscaa Bivo . Northndge. Calif 91521 Dcpt 7M( 

Telephone i?i3i 549-SS60 
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SYHI-1 

INTERACTIVE TRACE/DEBUG 
MONITOR ENTENSION COMMANDS 



MONEX:*"NEW COMMANDS:'Disassem- 
ble "Relocate "Find 'ASCII dump "Trace 
(Sym-Bug) 'Checksum calculator *BRK 
set/delete 'More 

SYM-BUG: Trace with dissassemble and 
register list; skip and continue subcom- 
mands. BRK and Single Step. 
PRICES: CASSETTE $15.95 )at $200 or 
$3800)EPROM (2716-5V) (at $F000) $49.95 
Commented Source $9.95 Custom 
assembly: add $2.00. User Manual separate- 
ly: $5.95 (applicable to purchase). All 1st 
class PPD continental U.S. Other add $2.50 

OTHER PRODUCTS: AIM — SYM — KIM 

Optimized" software for Optimal 

Technology's EP-2A prommer. Includes 
erase verify and full prompting. Let your 
computer do the work. Includes listing, 
cassette, instructions. Specify system. 
$9.95 

"'Complete hard-and software interface 
for Texas Instruments 12/20 column thermal 
printer. Requires one eight bit port. Perfect 
for dedicated control applications. Com- 
plete schematics, listings instruction. 
Specify system. $9.95 



J Holtzman 
6820 Delmar, 203 
St. Louis, MO 63130 
314-863-5209 



32 K BYTE MEMORY 

RELIABLE AND COST EFFECTIVE RAM FOR 

6502 b 6800 BASED MICROCOMPUTERS 
AIM 65-*KIM*SYIVI 

PET*S44-BUS 



* PLUG COMPATIBLE WITH THE AIM65/SYM EXPANSION 
CONNECTOR BY USING A RIGHT ANGLE CONNECTOR 
(SUPPLIEDI MOUNTED ON THE BACK OF THE MEMORY 
BOARD 

• MEMORY BOARD EDGE CONNECTOR PLUGS INTO THE 
6800 S 44 BUS 

• CONNECTS TO PET OR KIM USING AN ADAPTOR CABLE 

• RELIABLE— DYNAMIC RAM WITH ON BOARD INVISIBLE 
REFRESH-LOOKS LIKE STATIC MEMORY BUT AT 
LOWER COST AND A FRACTION OF THE POWER 
REQUIRED FOR STATIC BOARDS. 

* USES *5V ONLY, SUPPLIED FROM HOST COMPUTER 

* FULL DOCUMENTATION ASSEMBLED AND TESTED 
BOARDS ARE GUARANTEED FOR ONE YEAR AND 
PURCHASE PRICE IS FULLY REFUNDABLE IF BOARD IS 
RETURNED UNDAMAGED WITHIN 14 DAYS. 

ASSEMBLED WITH 32K RAM $119 00 

S WITH 16K RAM $349.00 

TESTED WITHOUT RAM CHIPS J279.O0 

HARO TO GET PARTS (NO RAM CHIPS) 

WITH BOARD AND MANUAL J109.00 

BARE BOARD & MANUAL J49.00 



PET INTERFACE KIT-CONNECTS THE 32K RAM BOARD TO 
A 4K OR 8K PET CONTAINS. INTERFACE CABLE. BOARD 
STANDOFFS. POWER SUPPLY MODIFICATION KIT AND 
COMPLETE INSTRUCTIONS 149.00 




I8KXI DYNAMIC RAM 

THE MK41I6-3 IS A 16.384 BIT HIGH SPEED 
NMOS. DYNAMIC RAM THEY ARE EQUIVALENT 
TO THE MOSTEK. TEXAS INSTRUMENTS. OR 
MOTOROLA 41 16-3. 

. 200 NSEC ACCESS TIME. 375 NSEC CYCLE 
TIME 

• 16 PIN TTL COMPATIBLE. 

• BURNED IN ANO FULLY TESTED. 

• PARTS REPLACEMENT GUARANTEED FOR 
ONE YEAR. 

M.SO EACH III QUANTITIES OF 8 



6502 6 6600 

64K BYTE 8AM ANO CONTBOLLER SET 

MAKE 64K BYTE MEMORY FOR YOUR 6800 OR 
6502. THIS CHIP SET INCLUDES: 

• 32M5K4116-3 16KX1. 200 NSEC RAMS 

• 1 MC3480 MEMORY CONTROLLER 

• 1 MC3242A MEMORY ADDRESS 
MULTIPLEXER ANO COUNTER 

. DATA AND APPLICATION SHEETS PARTS 
TESTED AND GUARANTEED. 
S295.O0 PER SET 



1=1 

COfTPUTER DEVICES 

1230 W.COUinS AVE. 

ORflnCE, CP 92668 

(714)633-7280 



Calif, residents pie 
s Visa »"■ ' 



add 6- . sales lai. Mastercharge 



II be added to all shipments. 

ALL ASSEMBLED BOARDS AND MEM- 
ORY CHIPS CARRY A FULL ONE YEAR 
REPLACEMENT WANANTY. 



VIZA — KIM 



A KIM Monitor extension program which provides the 
automatic display of the important system parameters 
at each step. The discussion reveals some details of the 
6502 interrupt handling mechanism. 



Joel Swank 



After reading George Lang's arti- 
cle on his U-PANEL project (MICRO- 
COMPUTING, January 1979), I decid- 
ed to implement his idea on my 
KIM-1 system. U-PANEL is a front 
panel display for KIM. It uses an ex- 
tension of the KIM single step cir- 
cuit (SST) and a small routine to 
dump the processor registers in 
binary to a panel of discrete LEDs. 
This is done by connecting the 
KIM SST signal on pin E-17 to the 
IRQ interrupt line on pin E-44. The 
SST signal is generated every time 
the CPU SYNC signal is generated 
and the instruction being executed 
is not located in the KIM ROM. 
SYNC is generated with each op- 
code fetch. Normally during KIM 
single step operation the SST signal 
is switched to the nonmaskable in- 
terrupt (NMI) line. This causes an in- 
terrupt during the first cycle of each 
instruction. Since an instruction 
cannot be interrupted in the middle, 
the interrupt is recognized im- 
mediately after the instruction is 
finished. The NMI vector cannot be 
set to a routine outside the KIM 
ROM while the SST switch is on 
because the first instruction of that 
routine will also cause the NMI in- 
terrupt to be taken, resulting in a 
continuous loop. Instead of the NMI 
George switched the SST signal to 
the IRQ line, KIMs maskable inter- 
rupt. This allows the interrupt to be 
vectored to any routine anywhere in 
the system rather than just the KIM 
ROM. The IRQ vector was changed 
to the register dump routine which 
returns control to KIM after output- 
tine the registers to U-PANEL. This 
routine must run with interrupts 
disabled to prevent it from being in- 
terrupted. 



Since I don't particularly care for 
reading binary lights, I decided to 
dump in HEX to my CRT terminal. 
This saves building the U-PANEL. 
and provides a more readable 
display. The changes to George's 
program were simple and I soon had 
my code ready to test, but I couldn't 
get it to work properly. I double 
checked everything and it all looked 
OK. So I started to analyze the pro- 
blem. 

The register dump to the CRT was 
working, but the CPU was not being 
interrupted after each instruction. It 
would execute a few insturctions 
and then stop. When I pushed GO it 
would execute a few more and stop. 
After a little thought I decided to see 
which instructions were being ex- 
ecuted without being interrupted. 



Soon a pattern emerged. The CPU 
was being interrupted only after in- 
structions whose execution time 
were two cycles. Any instruction 
whose execution time was 3 or more 
cycles was not being interrupted. 
Why? The answer lies in the MOS 
Technology hardware manual. The 
NMI interrupt is edge sensitive. That 
is, the interrupt is recognized by the 
change from high to low not just the 
presence of the low signal. Also, 
once the transition has occured the 
processor will be interrupted before 
the next instruction starts, no mat- 
ter what. The IRQ is not edge sen- 
sitive. A low on the IRQ line must 
coincide with a zero in the pro- 
cessor interrupt flag and the last cy- 
cle of an instruction. If the IRQ line 
goes low and high again while the 
CPU is not ready to accept inter- 
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rupts, the interrupt will be missed. In 
this case the SST signal because it 
is driven by SYNC will be low during 
the first cycle of an instruction and 
because of propagation delay, 
slightly into the second cycle. 
Therefore any instruction that is 3 
cycles or longer will cause the inter- 
rupt to be missed. So the interrupt 
occurs only after two cycle instruc- 
tions (the 6502 has no one cycle in- 
structions). 

To fix this problem the SST pulse 
must be lengthened to last at least 
as long as the 6502's longest in- 
struction. The circuit in figure one 
does this. It uses a one shot to ex- 
tend the pulse. This circuit produces 
a pulse of about one millisecond, 
much longer than needed, but it 
doesn't matter as long as the pulse 
is long enough. This circuit will pro- 
vide a properly operating U-PANEL 

After resolving the pulse length 
problem I decided to add a slow mo- 
tion feature. This would be a mode 
that would execute an instruction 
and then, after dumping the 
registers, instead of returning to 
KIM, would delay for a program- 
mable amount of time and execute 
the next instruction. This would 
allow the execution of a program in 
slow motion without pushing GO 
between each instruction. The code 
needed to add this feature is fairly 
simple and it was soon ready to test. 
I implemented it with a time value at 
$E9. This value is the delay time in 
in quarter seconds. Zero means 
slow motion not in effect. On first 
try I set the delay to two seconds 
and started the program. The first 
instruction was executed and the 
registers dumped, but there pro- 
gress stopped. The delay was work- 
ing properly and the display being 
updated every two seconds but the 
PC was not advancing. It was stuck 
on the second instruction. I stopped 
execution and started it again. This 
time the second instruction was ex- 
ecuted and it stuck on the third. 
Once again the problem was in the 
non edge sensitive IRQ interrupt. 

When in normal mode, each in- 
struction in the dump routine 
generates a pulse. These pulses are 
ignored during execution of the 
dump routine because it runs disabl- 
ed. The pulses stop once execution 
enters the KIM ROM. The RTI in- 
struction that KIM executes as a 
result of pushing GO enables the 
IRQ and the first instruction in the 



object program generates a pulse 
that causes an interrupt immediate- 
ly after it executes. The dump 
routine is then executed, and con- 
trol is returned to KIM to wait for the 
next GO. In slow motion mode the 
GO routine is executed via a JMP in- 
struction from the dump routine. If 
the pulse generated is longer than 
the time needed to execute the GO 
routine (about 38 microseconds) the 
IRQ line will still be low from the 
JMP instruction when the RTI in- 
struction is executed. This will 
cause an interrupt immediately after 
the RTI instruction and no instruc- 
tion of the object program will be ex- 
ecuted. To solve this problem, the 
pulse must be shortened to less 
than the duration of the GO routine. 
This can be done by changing the 
resistor in figure one to 2K Ohms. 
This generates about a 35 microse- 
cond pulse, longer than the longest 
6502 instruction but shorter than the 
KIM GO routine. 

I called my version of the program 
VIZA-KIM. The code for version 1 is 
included. It provides a formatted 
display on the CRT after each in- 
struction is executed. Version 2 has 
been enhanced to display in large 
characters on my SWTPC GT-6144 
graphics board. This display on my 
19 inch TV can be read by an entire 
room of people. VIZA-KIM makes an 
execellent device for learning the 
operation of the CPU. The exact ef- 
fect of each instruction can be seen. 

The VIZA-KIM dump displays the 
program counter (PC) and the first 
three bytes of data at that location. 
A nice enhancement would be to in- 
clude a line for a disassembled in- 
struction. The next line is for the 
stack pointer (SP). The current stack 
pointer is displayed along with three 
bytes from the stack page. The first 
byte is where the next push opera- 
tion will store its data. The 6502 
stack pointer always points to the 
next available byte. The next two 
bytes are the data from the last two 
push operations, or the data that 
will be read by the next two pull 
operations. If the last push opera- 
tion was a jump subroutine (JSR) in- 
struction this will be the return ad- 
dress minus 1. Next are the index 
registers (X and Y) and the ac- 
cumulator (A). Last is the processor 
status register (P). All data is 
displayed in HEX except for P. P is 
formatted in binary since its in- 



dividual bits have separate mean- 
ings. 

To use VIZA-KIM set the IRQ vec- 
tor ($17FE) to the address of the 
dump routine and turn on the new 
SST switch. Be sure the use P 
register at location $F1 has the in- 
terrupt flag (bit 2) set to zero, since 
the object program must run with in- 
terrupts enabled. To use slow mo- 
tion mode set $E9 to the number of 
quarter seconds of delay desired, 
enter the address of the object pro- 
gram and press GO. instructions 
will be executed one at a time after 
the desired delay. To stop execution 
hold down any key on the KIM 
keyboard. To use normal mode clear 
$E9 to zero and enter the address of 
the object program. Operation will 
be the same as in KIM SST mode. 

VIZA-KIM makes one aware of 
each change of the state of the pro- 
cessor as each instruction is ex- 
ecuted. This makes bugs more easi- 
ly spotted as well as giving one a 
better understanding of how the 
6502 works. 

VIZA-KIM 

PC DATA 
2000 C01A90 
bP-FF 305748 
X-06 Y-0A 
A- 00 
P 
NV FJDIZC 
00100000 

PC DATA 
200A 90FBB5 
BP-FF 305748 
X-06 Y-0A 

A-00 
P 
NV FJDIZC 
1010 

PC DATA 

2004 998000 
SP-FF 305748 
X-06 Y-0A 
A-00 
P 
NV BDIZC 
1010 
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BKM'S NUMERIC KEYPAD — $65 
FOR OHIO SCIENTIFIC OR LEAR SIEGLERS ADM-3A 

FEATURES 

Digits 0-9, Decimal Point, and Return 
Terminal Quality Keypad 
Ready to use with C4's and C8's 
Two Color Beige-Brown Case 
Size 7"D x 5"W x 2%"H 
Documentation 

OPTIONS 

Adapter cable kit for 

10 minute INSTALLATION — $4.95 

SPECIFY 

Superboard C1 

C2-4P C2-8P 

WE PAY SHIPPING TO CONTINENTAL U.S. 

TEXAS RESIDENTS ADD 5% 

ORDER DIRECT OR ASK YOUR OSI DEALER 

FOREIGN ORDERS ADD 30% 




MICRO 
SYSTEMS 
CORPORATION 



VISA 



3809 OLD COLLEGE ROAD 
BRYAN, TEXAS 77801 



713/846-8268 
713/846-3817 



IN 

STOCK 




SUPERBOARD // 8K Basic 

CHALLENGER IP 8K Ram 
CHALLENGER IP Minifloppy 
C4P Cassette Color 8K Ram 
C4P Minifloppy 24K Color 
C8P Expandable 8K Rom 
C8PDF Dual 8"Floppies 32K 
C20EM 48K Dual 8" Floppies 
C30EM 48K Triple Processor 
C3S1 Dual 8" Floppies 48K 
C3A 48" Cabinet C3 
DSKSA 5 Ft. Desk for C20EM 
AC-3P B<SW 12" TV/\id. Mon 
AC-75P 12" Color Monitor 
AC-9TP Centronics Tractor Ptr 



299.00 

399.00 

1250.00 

750.00 

1795.00 

950.00 

2895.00 

2799.00 

3995.00 

4095.00 

5995.00 

300.00 

129.00 

475.00 

1250.00 



AC11P 300 Baud Orig. Ans. Mod. 199.00 
AC-14 NEC Spinwriter SScps 2795.00 
AC-5A Okidata HS Line Ptr * 2950.00 
5-120 Soroc Serial Video Term. 995.00 
CA-9 Centronics Parallel Interf. 175.00 
CA-10-2 2 RS232 Serial Ports 175.00 

CA-12 96 Line Parallel 1/0 125.00 

CA-14A Votrax Voice Synthesizer 399 .00 
4KP 4K Expansion Kit of 2114's 49.00 
CM-2 4K Expsion Mem for D000 129.00 
CM-3A 16K Low Power 2Mhz Bd. 399.00 
CM-6 48K Dynamic Ram 1 Mhz. 549.00 
CM-9 24K Static Ram 2114's 450.00 

CM-10 8K Static Ram D&E Addr. 198.00 
610-8K Supbd 8K Exp. & Disc Ctl 298.00 
ATV Microverter to Modulate TV 35.00 
505 B Upgrade Disk Ctlr CPU Bd 275.00 
540B Color Video Board 200.00 

510C Upgrade to C3 CPU's 600.00 

470B Upgrade Floppy Controller 135.00 
C730 Centronics 730 Parallel Ptr. 899.00 
At time of preparation all of the above 
items were in stock except those marked 



■ith 



FREE ATV 
MICROVERTER 

With purchase of an 8K 

CHALLENGER I P 



Limited Quantity-First 25 Customers 



CDmPUTERSHDP 

Union N H Cambridge 



Boston 
590Comm. Ave. 
(across tromB.U.) 
247-0700 



Rle I6B 288 Norfolk Si 

603-473-2323 (near MIT.) 
661-2670 



Microbes & Updates 



Bill Watts of Provincetown, Mass phoned in the 
following changes to Henk Wevers' article "Short- 
hand Commands for Superboard II and Challenger 
CI P BASICS" (24:25): 

Page 26: 

Line 028B Restore fH 68 

Line 028F should be 67 

0291 should be 65, 

0292: 61 

0295: 64 

0298: 62 

029A: 63 

029E: 66 

Page 27: Line 0236 should read A2 58, instead of 
A2 43. 

With these changes, things should run smoothly. 



Bill Crouch from California writes: 

Line 63000 of the program XFILE.MAKER (23:11) 
was sent as "63000 REM XFILE.MAKER". The 
typesetter dropped the line number and used it as 
a title. The programs will not work unless there is 
a line 63000 in XFILE.MAKER so some of your 
readers might have problems with it. 

Also, if you want to use REM KILLER on a pro- 
gram which has GOTO and GOSUB statements 
which refer to remark lines, you can change line 
310 of REM KILLER to read: 

310 PRINT ARRAY(Y);CHR$(58) 



This will replace the REM statements with a col- 
on. Although it doesn't save as much space as a 
complete removal of the REMs, the program will 
still work as before. 



From Robert and Jon Prall of Silver Spring, 
Maryland found a problem in "Apple II Speed Typ- 
ing Test with Input Time Clock" in the December 
issue of 1979. 

On page 19:69 line 8406 reads in the published ver- 
sion, subtracting 159 from ASCII numbers assign- 
ed to the individual characters does not corres- 
pond to the position of characters the A$. 

The inclusion of the quotation mark at position 
three in the string is logical, but impossible 
because it causes a "Syntax Error" message, and 
a blank space should be substituted for it. 

The corrected line should read: 

8406 A$ = " ! #$%&'()* + ,-• 

/01 23456789:; < = > 

?@ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

The position of the spaces in the string is essen- 
tial; the signs for greater than and less than must 
be included, as must the exclamation point. The 
author's inclusion of the slash, the small 'm' amd 
a space at the end of the string appear to be addi- 
tional errors. 

With the corrections noted, the program runs very 
well. 



Rev. James Strasma sends this update to his arti- 
cle entitled "Lower Case Lister" (25:11): 

A revised printer ROM is now available for CBM 
printers without charge. It improves lower-case 
listings. However, the 20 characters that failed to 
print correctly in lower-case mode before stil fail. 
"Lower Case Lister" is compatible with the new 
'04' printer ROM., and corrects all characters. 
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Challenger II Communications 



Everything you need to turn your OSI with a 502 CPU 
board into a 'standard' communications terminal: 
hardware changes and the software to run it. 



Peter Koski 



As a college student, time 
becomes extremely valuable. A very 
poor use of this time is sitting 
waiting for a computer terminal. 
Corollary to Murphy's Law — there 
are never enough terminals; and 
who uses cards in this day and age? 

Looking logically at the situation, 
there was only one answer, and my 
OSI Challenger II was it. Generously 
enough, Ohio Scientific has provid- 
ed their 502 CPU board with all the 
foils needed for serial TTL/RS-232 
input/output. 

My answer was found. While 
others are sitting at terminals till 
the wee hours of the morning, I can 
be happily talking to Myron (our resi- 
dent IBM) from the comfort of my 
room. Stereo in the background, 
fridge to the right ... what a life! 

Of course this also opens up a 
whole horizon of dial-up bulletin 
board services as well as time-share 
systems. Options no computerist 
should live without. 

Hardware 

Before any software can be writ- 
ten, we'd better have some hard- 
ware to play with. Conveniently 
enough, the cassette port runs at 
300 baud. No problem here. What 
about the -9 volts required by 
RS-232? Again we're allright: most 
modems only require a swing to zero 
level. Great! 

First, let's start with the output 
side of the problem. Locate, using 



OSI's 502 schematic package, the 
positions of U31.R55, R56, R57 and 
Q2. Some boards may or may not 
have U31 on them already. If not, in- 
stall U31 using an I.C socket. The 
values for the parts may be sum- 
marized: 

U31 7404 (hex inverter) 

R55, 57 10KQ (V* watt) 

R56 470Q (V* watt) 

Q2 2N5226 

Carefully solder these to the 
board, confirming the positions. 
Check for any solder bridges which 
may crop up. 

Input becomes only a bit more 
complicated. In order to maintain 
cassette capability, a switch must 
be inserted in the ACIA input line 
(the cassette input ciruit loads down 
the line). Any SPDT switch which 
fits on the rear apron will suffice 
(Radio Shack's paddle switches fit 
the 3/4 inch holes perfectly). Install 
the switch and we'll worry about wir- 
ing it later. 

Again referring to the 502 layout 
sheet, locate U20, R61, R62, D3, and 
Q4. As with U31 , U20 may or may not 
exist already. If not, be sure to use a 
socket when installing it. Once their 
positions are located, the following 
parts may be installed: 



U21 


7404 


(hex inverter) 


R61 


10KQ 


(V* watt) 


R62 


4.7KQ 


(Vi watt) 


D3 


1N914 




Q4 


2N5225 





Be certain the board looks right 
before continuing on. 

Going to pin 2 of the ACIA (U3) is 
the RX DATA foil. Cut this foil at 
some convenient point and solder 
the center terminal lead of the 
switch to the ACIA side of the cut. 
Solder one of the other leads to the 
other side of the break. In this 
switch position, cassette operation 
is as normal. Back to the newly in- 
stalled U20. Locate the foil from pin 
2 and cut it. To the U20 side of this 
foil, solder the remaining lead of the 
select switch. In this switch posi- 
tion, RS-232 input will be routed to 
the ACIA. A good thought would be 
to install a 3-pin in-line connector 
somewhere between the board and 
the select switch. 

A standard RS-232 connector may 
also be added to the rear apron. The 
RX DATA is now at pin 1 of connec- 
tor J3 and TX DATA at pin 7 of J3. All 
the even pins of J3 are ground. (-9 
volts is bussed on the backplane, 
just add your supply if needed). 

Unless you feel confident in your 
soldering abilities, you may want to 
let a trustworthy friend do the work 
for you. It only takes half an hour or 
so, but errors could be disasterous 
— and it's your own fault. 

What you are now left with is an 
RS-232 port which resides at FC00 
(same as cassette port). The input is 
selectable: cassette or 300 baud 
RS-232. Output is always there, 
allowing for convenient printer 
listings of programs being SAVEd to 
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tape. The uses and tricks that can 
be inpiemented are too numerous to 
list; you'll find them yourself. 

As for the modem, the Novation 
Cat is probably the top of the line if 
you can afford it. I have used it with 
excellent results over phone lines 
which would have made speech 
recognition rough, and I have not 
lost a bit. Plus it offers answer in ad- 
dition to originate mode. 

Software 

Two options are now possible, 
and I've tried both. OSI's BASIC is 
fast enough to service the port via 
PEEKs and POKEs. However the 
draw-back is that it is very difficult 
to output BASIC control symbols 
(comma or colon). A BASIC routine 
is the easiest route if you wish to set 
up a system for down-loading 
locally-editted files. This is a very 
handy routine which works well. See 
the two BASIC programs below. 

On the other hand, the following 
assembler routine turns your 
brilliant computer into an ignorant 
terminal. Running with this system, 
the Challenger II behaves like a 
standard ASCII terminal, except the 
obscure CTRL functions will appear 
as OSI graphics. 

The package includes a protected 
field at the top of the screen to pro- 
vide a 'touch of class' without tak- 
ing too much screen space. 

As written, the routine is loaded 
into 2000 hex. However, it could be 
relocated fairly easily. The only 
monitor routine called is the 
keyboard input routine, whose entry 
point in the 65V MONITOR is FEED 
hex (should be the same for all 
systems). The program continually 
polls both the port and the 
keyboard, then displays or output 
(as the case may be) whichever is re- 
questing service at the time. Auto- 
line feed is provided only on out-put 
(as the case may be) whichever is re- 
questing service at the time. Auto- 
line feed is provided only on out-put 
carriage return. Most dial-ups will 
provide line-feed with carriage 
return. 

As an added note of interest, the 
RS-232 outputs from both the 
Challenger II and modem are able to 
handle two loads. This means that a 



printer could be used on one line 
(normally input) to provide hard- 
copy as desired. Certainly no com- 
puter system should be without 
RS-232 communications capabili- 
ties. 

My system has behaved flawless- 
ly through "mega-hours" of hard 
use. Good luck, and don't make Ma 
Bell too rich with your calls! 

V< 

1983 

1818 

1828 

182 
* aw 

1833 
1835 
1837 

1838 



Peter is a sophomore at Rensselaer 
Polytecnic Institute majoring in 
Biomedical Engineering — Elec- 
tronics option. His minor is in Com- 
puter Systems. He has an Ohio 
Scientific Challenger C2-4P which 
he uses for both academic and hob- 
by purposes. Pete started his pro- 
gramming in BASIC and recently ad- 
ded assembler capability to his 
machine's repetoire. 



REM — 



-£LV;;;iu L ^-^-|,k] SY5 T EH 



KM 



REM 


VERSION 3.2 


RES 




REM — 


PETER KOSKI 12/73 


REH 




EM - 


STRIKING EITHER 'SHIFT' KEY ENTERS 


REM 


TRRNSMIT MODE { ? PROMPT) 



REM — WHEN ENTERING H COMHn OR COLON ; THE 



155'? REM 



'CTRL' MUST HLSO BE DEPRESSED 



1188 
1118 
1128 



1148 
2888 
2818 

-_ 
2648 



2878 
£338 

2895 

l-JZ 

PITfi 

w. 



REM- IMRSCOSE IS CONTROL HYPHEN 

REM 

REM - OR OPERfTTOR IS CONTROL 1 

REM 

REM — NOT OPERATOR IS I 

REM 

POKE 538,1: POKE 57833.1: POKE 64512,1 

IF C PEEK( 64512 )PMj1)TH£N PRINT CHRS(PEEK(64513»; 

IF ( PEEK? 57883 M> THEN 2818 

INPUT m 

FOR TK=1 TO LEiK TX* > 

FOR DLfl=l TO 15: NEXT DLK 

IF HSC(HID$(TX$,TX.l»=i22 THEN POKE 64513,58: GOTO 

IF RSC(niD5(TX*,TX,!))=188 THEN POKE 64513,44: GOTO 

IF fiSC(M3M(TX$,TK,l))=193 THEN POKE 64513,95: GOTO 

IF HSCCMMTXfJLnMIS THEN POKE 64513,124:G0T0 

IF ffiCCMID«TX$,TX,I»= 35 THEN POKE 64513,126: GOT! 

P0KE64513,fiSC(MID«TXi,TK,l)) 

HEXTTX 

FOR DLfi=l TO 15: NEXT DLH; POKE 64513,13 

FOR DLfM TO 15: NEXT DLR: POKE 64513,18 



2183 
2188 
2188 
2188 
! 218S 
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EH lUM. OPERATING SYSTOi 312Q PRIHT: PRINT: INPUT "OPTION" ;0PTH$ 

m m 3148 IF L£FT$<0F!N$,4>=1IST a TREH ID=3: GOTO 3188 

m m vERSIOti 3.3 3158 IF LFJT&OPTNM^DOHE" THEN EHJRH 

mm 31b8 1!PUT° LIE";LINE 

1884 REM - FLIER KOSKI IW9 M» * UF?«flPI»^)='IH5ERr TIB UN 

m m 3175 IF L£FT«0FTH*,6)=*DLLETE" THEN IC=2 

1886 REM - LOCH FILE EDITOR / TERnlHRL SYSTEM PfiCKfiGE 3188 ON ID GOSUB 3238, 3268, 3318 

188? M 3198 Q3T0 3128 

1889 BIB UEK681, TERFK64) 3268 FUR B= CUM) TO CLINE+1) STEP -1 

1818 FOR CLS=1 TO 28; PRIHT: NEXT CLS 3219 LlffiK&MJStB-i} 

1828 PRINT" »» TOS VERSION 3.3 ««* 3228 NEXT B 

1836 PRINT:PRINT:PRM 9 — LOftD (LIB LOCfiL FILE)" 3238 PRIHT: INPUT INSERT* 

1846 PRIHTiPRIHT a — EDIT (EDIT LOCfiL FILE)" 3248 LIH£$<LIHE+1 MHSERT* 

1856 PRIHTiPRIHT B — TMOD (ENHfiHCED TERMIHFL KOCD" 3258 \MMi RETURN 

1868 PRINT: PRINT: PRINT: INPUT rlOD$ 3269 FOR C=LINE TO LH-1 

1878 IF LEFTi(!10Df,4)="L0HD" THEN ItM 3278 LIHE$<C)=LII£$CC+i> 

1838 IF llrTKHeBM^SHT* Tie ID=£ 3286 NEXT C 

18% IF LLTMftHODM^TfsF THEN ID=3 3298 LI1EKLHKHR&32) 

1168 ON ID GOSUB 2888, 3888, *m »B8 LN-LN-1: £Tu*« 

m8 m T0 1618 3318 PREPRINT: FOR M TO LH 

2898 i£H - LORD LOCH. FILE 3326 PRINT D, LIHE*CD) 

2818 FOR CLS=1 TO 14:PRIH!:HEXT CLS 3338 NEXT D: RETURN 

2815 FOR CR=S TO 66: LI WL$( CM >=CHR$< 32 >: NEXT CH 4666 Kiii - &My ^tMim. ufLWiiiffi SySTlH 

agg ppnrr a >>> ! ffifl. FILE LOfiDER <«" ^ FDR ^ =5 ra - S: ^® ! "^ ^ 

ps-S wiht.wiht 4628 PRIHT n )» EHHRNCED TERHIHRL OPERRTIHG SYSTEM «<* 

2638 FRIHTiFRINT s — OR operator ts CTRL-1" •* PRU-fT'.PRIHT 

2835 RDMK " - HOT operator fa f 4632 PRM:PRIHT " - Strikhg either SHIFT hg esters' 

OHi 3 Pi?THT : pPiKT ■ — UHDE8SG88E is CTRL HVPi£H u 4 ^5 PkiHT" TRfflbfiii iode ( ? prespt )" 

^ pg M:P oiuT - _ fTPi ret be depressed rtet" 4648 PRIHTiPRIHT ' -- OR operator is CTRL-i' 

2868 FRM ■ NteriM a CUff or COLON" 4656 PRM:PRINT " - NOT operator ts t" 

?676 FRIHT:PRIHT ■ - tEHDFILE Darks esd-oHile" 4855 FRM:PRIHT " — IMRSCORE is CTRL HYPHEN' 

2686 PRIHTiPRIHT: LSM 4Ke f -' ! ' iT:FRM " ~~ CiKL " as * be d - re "* d Btel " 



2696 INPUT LIHE&LH) 



4665 PRINT" nteriq a CGffifi or COLON" 



2188 IF LEFT$(Lie(LH),85= E eCFILE s THEN RETURN 4675 PRINT:PRINT ■ - DUMP (DUMPS LOCFL FILE)" 



2118 URH+1: GOTO 2638 



4676 PRINTiFKlHl a — DOHE 



3686 REM - EDIT LOCfiL FILE 4878 PRIHTiPRIHT 

3618 FOR CLS4 TO 14: PRINT: HEX! OS 4883 POKE 538,1: POKE 57688,1: POKt £4512,1 

3660 PRINT 6 ») LOCfiL FILE EDITOR <«" 4882 IF (PEEK(64512MiDl) THEN PRIHT CHR$<FEEKC64513)); 

3878 PRINTiPRINT 4883 IF ( PEEKC 57688 H) THEN 4682 

3688 PRIHTiPRIHT " ~ INSERT , LINE NUNBER PROCEEDING INSERT' 4884 INPUT TXI 

3698 PRIHT - LQCfiTION DESIRED* 4885 IF LLMf(TXi,4)= E D[lf " THEN 5666 

3168 PRIHTiPRIHT ■ — DELETE , LINE NUWB ER TO BE DELQED" 4867 IF LLTT«TX},4>= E D0HE D THEN RETURN 

3185 PRINTiPRINT " — LIST 4188 FOR TX=1 TO LEH(TX$) 

3118 PRINTiPRIHT ' — DOHt" 4116 FQ* DLfl=i TO 15: HOT DLH 
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+ 5V 



jpa. 



R55 

AA/V 



U31 



RS-232 DRIVER 




To Pin 7 on J3 



IF BSC(KIM<m,TK,i»=rS THEH POKE 64513,58: GOTO 4286 

IF ffiKMW(TX*,TX,l))=i03 THEH POKE 64513,44: GOTO 4268 

IF fiSC(HIDi(TX$ f Ts,i»=i69 MS POKE 64513,95: GOTO 4286 

IF fiSKHIM(T>»,TX,l))=113 TO POKE 64513, 124: GOTO 4209 

If fiSCCHIM<TXt,T>y»=35 THEN POKE 64513, 126: GOTO 4268 

POKE 645S3 J HSeCHIi}*CTK$ i TK ; i}) 

NOTTX 

FOR DLfNl TO 15: i£KT Ml POKE 64513,13 

FOR DLR=1 TO 15: rOT DLfl; PM 64513,18 

GOTO 4832 

RSI — LOCH. FILE DUMP ROUTINE 

FOR CLS=1 TO 28: PRINT: EXT CIS 

PRINT " »> LOCfl FILE DUMP ROUTINE «<" 

;"":;" T I JT » TiTi 7i IT - [":•": TL1T, "iTLiT 



4128 
4138 
4148 
4158 
4168 
4178 
4268 
4218 
4228 

5808 
5818 
5828 
5838 
5858 FOR 6=1 TO LH 



5868 
5678 
5938 
5698 
5188 
5118 
5128 
5125 
5138 
5149 
5159 
5155 
5168 
5138 



FOR H=l TO LEHaiHE&G)) 

TEHP*<H)=i1IDJ(LIHE$<G),H,l ) 

IF TElf &H)= H i a THEH TDf*(H=V 

I? TEffffH^'i" THEN TE'!fft(B)=*; D 

jp TOf$(H)='2 B THEH TEHPKR)=*:" 

I? TENP$CH>=V THEH TOP JCH)=CBRJ(95> 

IF 1WP..WP"<\" THEH TSffCHMSttCfi**) 

IF TfflPKH^t" THEN TENP&HKHRS126} 

NEXT H 

LM£H£LINE«G)): IMMte" * 

FOR 1=1 TO LT: LIKEKGttlffiKGMTQPKI): NEXT I 

FOR WT=1 TO 1268: NEXT BT 

POKE 517,255: PRInT RIGHT* LINEKGUT): POKE 517,8 

:€;TG 

GOTO 4336 



+ 5V 



From Pin 1 on J3 R61 

wv 



9 \ 8 1|\2 




U20 




U20 



RS-232 RECEIVER 
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0010: 








CHALLENGER II 


0540: 


203C 59 




- 


•Y 


0020: 








TERMINAL OPERATING SYSTEM 


0550: 


203D 53 




— 


•s 


0070: 








EY PE m ER K0S1 


u 


0560: 


203E 54 




' 


'T 


0040: 












05 7 0: 


207F 45 




- 


•E 


OO'SO: 


2000 






TOS ORG 


$2000 


0580: 


2040 4D 




= 


*M 


C06C- 












0590 : 


2041 A 2 OE 




LDXTM 


$0E 


0070: 


2000 


A9 


20 


LDATM 


$20 


0600: 


204' BD 19 20 


LOOPS 


LDAX 


$2019 


0080: 


2002 


AO 


08 


LDYTM 


*08 


0610: 


2046 9D EC DO 




STAX 


$DOEC 


0000: 


2004 


A2 


00 


LDXTM 


$00 


0620: 


2049 CA 




PEX 




0100: 












06'0: 


204 A DO F7 




BNE 


LOOPB 


0110: 


2006 


9D 


00 DO 


LOOP S m AX 


SDOOO 


0640: 


204C A2 19 




LDXTM 


$19 


0120: 


200° 


E8 




INX 




0650: 


204E BD 27 20 


LOOPC 


LDAX 


$2027 


0170: 


200A 


DO 


FA 


BNE 


LOOP 


0660: 


2051 9D 61 D1 




STAX 


$D161 


0140- 


200C 


FE 


08 20 


INC 


$2008 


0670: 


2054 CA 




DEX 




0150: 


200F 


8P 




DEY 




0680: 


2055 DO F7 




BNE 


LOOPC 


0160: 


2010 


DO 


F4 


BNE 


LOOP 


0690: 


205^ A2 40 




LDXIM 


$40 


0170: 


2012 


A9 


DO 


LDAIM 


$D0 


0-700: 


205° A9 04 




LDAIM 


$94 


C180: 


2014 


8D 


08 20 


STA 


$2008 


0710: 


20SB 9D BF D1 


LOOPD 


STAX 


$D1BF 


0190: 


2017 


4C 


41 20 


JMP 


$2041 


0720: 


205E CA 




DEX 




0200: 


201 A 


4^ 




= 


•c 


07'0: 


2C5F DO FA 




BNE 


LOOPD 


0210: 


201 B 


48 




= 


•H 


0^40: 


2061 AD 00 FC 


LOOPE 


LM 


$FC00 


0220: 


201 C 


41 




= 


'A 


0750: 


2064 4A 




LSRA 




0230: 


201 1) 


AC 




as 


•L 


0^60: 


2065 BO 1E 




BCS 


LOCA 


0240: 


201 E 


AC 




- 


"L 


0^70: 


2067 EA 




NOP 




0250: 


201 F 


45 




n 


•E 


0^80: 


2068 A9 02 




LDATM 


$02 


0260: 


2020 


4E 




., 


'N 


0790: 


206A 8D 00 DF 




STA 


$DFOO 


0270: 


2021 


47 




■ 


•G 


0800: 


206D AE 00 DF 




LDX 


JDFOO 


02P0: 


2022 


45 




» 


'E 


0810: 


2070 DO 20 




BNE 


LOCB 


0290: 


202' 


52 




. 


•R 


0820: 


2072 OA 




ASLA 




0^00: 


2024 


20 




= 


■ 


0830: 


2073 FO EC 




BEQ 


LOOPE 


0^10: 


2025 


20 




— 


• 


0840: 


2075 4C 6A 20 




JMP 


$206A 


0720: 


2026 


49 




m 


'I 


0850: 


2078 AO B9 




LDYTM 


$B9 


0^30: 


202^ 


49 




= 


'I 


0860: 


207 A A 2 00 




LDXTK 


$00 


0^40: 


2028 


54 




a* 


"T 


08^0: 


207C C8 


LOOPF 


INY 




0?50: 


202Q 


45 




a 


"E 


0880: 


207D FO E2 




BEQ 


LOOPE 


0760: 


202A 


52 




= 


•R 


08°0: 


207F E8 




TNX 




0'70: 


202P 


4D 




33 


'M 


0900 : 


2080 FO FA 




BEQ 


LOOPF 


0380: 


202C 


40 




— 


'I 


091 0: 


2082 4C 7F 20 




JMP 


$207F 


O'^C: 


202D 


4F 




~ 


'N 


0920: 


2085 AD 01 FC 


LOCA 


LDA 


$FC01 


0400- 


202F 


4-1 




SS 


'A 


0930: 


2088 29 7F 




ANDIM 


$7F 


0410: 


202F 


4C 




= 


■L 


0940: 


208A FO D5 




BEQ 


LOOPE 


0420- 


20^0 


20 




= 


t 


0950: 


20PC 20 BC 20 




JSR 


S20BC 


04^0: 


20' 1 


4F 




= 


•0 


0960: 


208F 4C 61 20 




JMP 


$2061 


0440- 


20' 2 


50 




= 


*P 


0970: 


2092 20 ED FE 


LOCB 


JSR 


$FEED 


0450: 


20^ 


45 




O 


'E 


0P80: 


20Q5 C9 OD 




CMPTM 


$0D 


0460: 


20 ri 4 


52 




= 


'R 


OPQO: 


2097 FO 09 




BEQ 


LOCD 


04 7 0: 


20^5 


41 




= 


'A 


1000: 


2099 8D 01 FC 




STA 


$FC01 


0^0: 


20^6 


54 




m 


'T 


1010: 


209C 20 EC 20 




JSR 


$20BC 


0490: 


203" 7 


49 




= 


•I 


1020: 


209F 4C 78 20 




JMP 


$2078 


0500: 


20' 8 


4E 




GS 


'N 


1030: 


20A2 PD 01 FC 


LOCD 


STA 


$FC01 


0510: 


2079 


47 




= 


•c 


1040: 


20A5 20 BC 20 




JSR 


$20EC 


0520: 


20'A 


20 




* 


t 


1050: 


20A8 AO OA 




LDYTM 


$0A 


0530: 


207B 


5' 




- 


•s 


1060: 


20AA AD 00 FC 


LOCE 


LDA 


$FCOO 
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1CF0- 


20AI 


4A 






1080: 


20AE 


4A 






10P0: 


20AF 


PO 


F9 




1100: 


20B1 


PC 


01 


FC 


1110: 


20B4 


AP 


OA 




1120: 


20B6 


20 


BC 


20 


11^0: 


20B° 


4C 


78 


20 


1140: 


20BC 


CQ 


OB 




1150: 


20BE 


FO 


1° 




1160: 


20C0 


C9 


OA 




11^0: 


2002 


FO 


28 




1180: 


200 4 


AE 


B8 


20 


1190: 


20C7 


9B 


00 


B 7 


1200: 


20CA 


Ao 


20 




1210: 


20CC 


9B 


40 


B7 


1220: 


20CF 


EE 


B8 


20 


1230: 


20B2 


A9 


87 




1240: 


20D4 


PB 


41 


B-7 


1250: 


2CB7 


60 






1260: 


20B8 


00 






1270: 


2CB9 


A9 


20 




1280: 


20BB 


AE 


B8 


20 


1290: 


20BE 


9D 


40 


B7 


1^00: 


20E1 


A9 


8^ 




1310: 


20E3 


8B 


40 


B7 


1720: 


20E6 


AP 


00 




1330: 


20EP 


8D 


B8 


20 


1340: 


20EB 


60 






1350: 


20EC 


AE 


40 


B2 


1360: 


20EF 


8E 


00 


B2 


13^0: 


20F2 


18 






1380: 


20F7 


AB 


EB 


20 


1790: 


20F6 


69 


01 




1400: 


20F8 


8B 


EB 


20 


1410: 


20FB 


AB 


EE 


20 


1420: 


20FE 


69 


00 




1430* 


2100 


PB 


EF 


20 


1440: 


210^ 


18 






1450: 


2104 


AB 


FO 


20 


1460: 


2107 


69 


01 




1470: 


2109 


8B 


FO 


20 


1480: 


21 0C 


AB 


F1 


20 


1490: 


21 OF 


69 


00 




1500: 


2111 


8B 


F1 


20 


1510: 


2114 


AB 


EE 


20 


1520: 


211^ 


C9 


B? 




1530: 


21 1o 


90 


B1 




1540: 


21 1B 


AB 


EB 


20 


1550: 


21 1E 


C9 


^F 




1560: 


2120 


EA 






1570: 


2121 


QO 


C9 




1580: 


2127 


A2 


00 




1590: 


2125 


A9 


20 




1600: 


2127 


PB 


00 


B- 7 



LOCF 



LCCG 



L0CP7 



LSRA 

LSRA 

ECC 

STY 

LBATM 

JSR 

JMP 

CMPTM 

BEQ 

CMPTM 

BEQ 

LBX 

ST AX 

LBATM 

ST AX 

TNC 

LBATM 

STAX 

RTS 

BRK 

LBATM 

LBX 

STAX 

LBATM 

STA 

LBATM 

S^A 

RTS 

LBX 

STX 

CLC 

LBA 

ABCTM 

STA 

LBA 

ABCTM 

STA 

CLC 

LBA 

ABCTM 

STA 

LBA 

ABCTM 

STA 

LBA 

CMPTM 

BCC 

LBA 

CMPIK 

NOP 

BCC 

LBXTM 

LBATM 

S^AX 



LOCE 

JFC01 

$0A 

$20EC 

$20^P 

$0B 

LOCF 

$0A 

LOCG 

$20BP 

$B700 

?20 

$B' 7 40 

S20BP 

$87 

$B' 7 41 



$20 

$20BP 

$B740 

$87 
$B^40 

soo 

S20B8 

SB240 
$P200 

S20EB 

$01 

WEB 

*20EF 

$00 

$2CEE 

."•20F0 

$01 

$20F0 

$20F1 

$00 

•*20F1 

S20EE 

$B7 

LOCG 

$20EB 

$31 

LOCG 

$00 

*20 

$B' 7 00 



1610: 
1620: 
1670: 
1640- 
1650: 
1660: 
16^0: 
1680: 
1690: 
1700: 
1710: 
IB= 



21 2A 
21 2B 
21 2B 
21 2F 
21 '1 
2134 
2176 
21 7 P 
21 ^B 
21 7E 
2141 



EP 

EO 40 
QO FP 
A9 40 
8E EB 20 
A° 00 
8B FO 20 
AP B2 
PB EE 
8B F1 
60 



20 
20 



TNX 




CPXTM 


$40 


ECC 


LOOPZ 


LBATM 


$40 


STA 


$20EB 


LBATM 


$00 


STA 


S20F0 


LBATM 


3T2 


STA 


S20EF 


STA 


$20F1 


RTS 





D©G3@@IKIiS 
for the AIM 




r 



isaaaa® §®t?TO/&[aa 



AIM MicroChess with Player's and Programmer's Manual, 
complete Source Listings, Object on Cassette Tape. 
$15.00 plus shipping [$1.00 US/S2.00 Anywhere Else] 
MICRO Software, P.O. Box 6502, Chelmsford, MA 01824 
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Classified Ads 

KIM Basic users: upgrade to full- 
feat rd Basic with renumb, append, 
improved editor, file system sup- 
porting PET-like file commands & 
more. Incl casstt, manual, sample 
progs, compl source list. Many 
practical applica to KIM Basic. 
Send $43. for packg or SASE for 3 
pg compl descr. 

Sean McKenna 

64 Fairview Av. 

Piedmont, CA 94610 

PET MACHINE LANGUAGE 
GUIDE: Comprehensive manual to 
aid mach. lang. progrmmr. More 
than 30 routns fully detailed: 
reader can put to immed. use. For 
New or Old ROMS. $6.95 plus .75 
p&h. VISA/Mastercharge accptd. 

Abacus Software 

P.O. Box 7211 

Grand Rapids, Ml 49510 

Apple II Sweet 16 Assembler 
SW16 in mach lang & intg basic 
progs. Understand & use powerful 
16 bit processor. Incl in disk & 
casstt based text ed is SW16 
assemb. & users' man. Manual 
cntns treatment of SW16 
prcessng, OP code descr. & more. 
Send $15. ($5. for man applic to 
assemb) 

Scientific Software 

P.O. Box 156 

Stowe, PA 19464 
British Apple Owners/ueaiersi 
Write now to MGA for extensive 
list of specialised software and 
hardware for your Apple or 2020. 
We promise you'll be surprised!! 

Michael Gurr Associates 

140 High Street 

Tenterden, Kent 

TN30 6HT, England 

OSI C1P Superboard II owners, 
you need the 96 page tutorial 
manual "Getting Started with Your 
C1P'. Fundamentals of BASIC, 
cassette usage, subroutines, logic 
& control are described in step-by- 
step manner.$5.95 + $1 p&h form: 

TIS 

Box 921 -M 

Los Alamos, NM 87544 

The Relationship Life Dynamic 
(Apple II Plus, 48K, $15.95:disk) 
A unique program for those whc 
desire to experience transforma- 
tion in their relationships w/o pay- 
ing the high costs of commercial 
'trips'. Incl games & HIRES 
graphics animation. Order from: 
Avant-Garde Creations 
P.O. Box 30161, Dept. MC 
Eugene, OR 97403 

AIM-65 system for sale 
Includes Power A Plus power supp- 
ly. Used less than 5 hours. All 
documentation included: $375. Call 
(61 7) 924-0972, or write: 
Edwin M. Kellogg 



100 Robbins Road 
Watertown, MA 02172 

OSI Machine Code Renumber Pro- 
gram: selective renumb all, part of 
Basic prog. Fast, easy, no more 
modifica req. Avail self-load, 
checksum tape, or disk. Disk sys 
incl. utility routines. Tape:$6.95, 
Disk:$9.95. Specify sys & amt of 
memory. 

L&J Personal Computing 
2606 Grand Avenue 
Grand Junction, CO 81501 

Applell Shape Table Editor makes 
shape constr & edit easy. 11 edit 
commands allow creation, modifca 
of shapes. Save & retr tables to use 
w/ DRWA, XDRAW & SHLOAD 
commnds of AP II Basic. Runs 
under firmwr Aplsft fl pt Basic 
W/32K RAM. Cassette & 
manual:$29.95, or $2 (refund w/ pur- 
chase) for maunal only. 

Small Systems Software 
P.O. Box 40737 
Washington, DC 20016 

OSI SOFTWARE: tapes for 
challenger C1P, superboard. star- 
trek; starfighter & lunar lander; 
egyptian ruler; home budget. Each 
$7.50. catalog SASE. 

JDS Software 

2334 Antigua Ct. 

Reston, VA 22091 

AIM 65 Newsletter— hardware and 
Software, Utilities as well as Ap- 
plications. Keep up to date in the 
AIM 65 world. Target is published 
bimonthly. Six issues $6.00 in US & 
CAN ($12. elsewhere) 

Target 

c/o Donald Clem 

RR Number 2 

Spencerville, OH 45887 

TAPE MONITOR CONTROL 
C1P and Superboard usres. Turns 
recorder on and off with LOAD and 
SAVE. Adds on to, rather than 
modifying board. Parts cost about 
$10. Complete plans:$4.00 
Bruce Miller 

13325 W. Crawford Drive 
New Berlin Wl 53151 
TRACER ($11.95) and other pro- 
grams available. Phone or write: 
Quality Software 
3194 Ospika PI 
Prince George, BC 
Canada V2N-2TS 
(604) 563-9839 
APPLE BARGAINS! EASY AS 1,2,3! 
1)D.C HAYES MICROMODEM:$320 
2)Z-80 SOFTCARD by MICROSOFT: 

Run CP/M on APPLE : $320 
3)APPLE DATA-GRAPH 

Screen, only : $25, 
or FREE with hardware order! 
C.O.D. ok 
Connecticut Info. Systems 
218 Huntington Road 
Bridgeport, CT 06608 
(203) 579-0472 
CL0924 on SOURCE 



ELCOMP 

^V Books 

Care and Feedinf ol the Commodoie FIT 

Fight chapters exploring Pt! haid»aie Includes repair and interlacing in 

lormation Programming tricks and schematics 

Older Ho. 150 WM 

8K Microsott BASIC Reference Manual 

Authoritative relerence manual lor the original Microsoft 4K and 8K BASIC 

developed lor Allan and later computers including PET. IRS 80. and OSI 

OSI owners please take note 1 

Order Mo. 151 * »•« 

Eipansion Handbook lor 6502 and 8802 

(S 44 Card Manual) Describes all ot the 4 5 1 6 5 44 pin S 44 cards incl 

RAM. ROM. dig I/O. MUX/A to 0. [PROM Prog, etc With schematics and 

lunct descriptions. A must lor every KIM. SYM and AIM owner. 

Oidei No. 152 * »■* 

Microcomputei Application Notes 

Reprint ol Inlels' most important application notes, including 2708. 8085, 

8255 8251 chips Very necessary tor the hardware butt 

Order No. 1S3 J 9 95 

Complei Sound Generation 

New. revised applications manual lor the Texas Instruments SN 76477 

Complex Sound Generator. Circuit board available (58 95) 

Order No. 154 * 6 - 95 

Smalt Business Piogiams 

Complete piogiams loi Ihe business usei Mailing List, Inventoiy. Invoice 

Wnting and much moie Intioduction into Business Applications Many 

ll$ "" p (MM 

Oidei No. 156 *"- M 

The Fust Book ol Ohio Scientilic. Vol. I 

Contains an intioduction to peisonal computeis and descnbes the Ohio 

Scientific line. Contains explanatoiy diagiams block, hook up. expan 

sion, tiicks. hints and many interesting listings Haidwaie and software in 

lormation not previously available in one compact souice 192 pages 

Oidei No. 157 S 7.95 

The Fiist Book ol Ohio Scientilic. Vol. II 

Vol II contains veiy valuable intoimation about Ohio Scientilic microeom 

puler systems. Introduction to OS 650 and 0S6SU. networking and dis 

tributed processing, systems specilicauons. business applications, haid 

and sotfwaie hints and tips 

Oidei No. 158 S 7.95 

Mailing List Program lor Challengei (Mil 8K 

Oidei No. 2004 - Peisonal Veision 5 9.95 

Oidei No. 2005 - Business Veision i 9.95 

Ohio Scientilic Expansion Intoimation 

Conveision ol C1P (Cassette) to 52x26 display Detailed step by step in 

sliuctions toi doubling the C1P speed and display size 1 

Oidei No. 1105 J12-00 

Important Soltware lor CBM 16K/32K 

Most powertul Editor/Assembler tor Commodore CBM 16/32K on cassette 

Very last — Editoi divides scieen into 3 parts. Scrolling text window. 24 

direct commands. 19 serial commands, status and error messages As 

sembler can be stalled directly from the editor or Irom the TIM monitor 

Translates in thiee passes. II an eiior is encounteied. automatic return to 

the editor Cassette with DF M0 

Order No. 3276 $69.00 

ATTENTION APPLE USERS 

Same as above for Apple II or Apple II plus 

Order No. 3500 $89.00 

M0N1ANA. I makes Machine Language Programming easy! 

In cveiy Commodoie CBM theie is a spaie ROM socket waiting lor its 

M0NIANAJ1 The new M0NIANA .1 Machine Language Monitor in ROM 

offers more user guidance and debugging aids than any other momloi 

available today II is indispensable loi anyone intending to take lull ad 

vantage ol the computeis features Trace, link, disassemble, dump, lelo 

cate. line assemble and much moie Every command lunction has de 

mand printout option Puce includes extensive manu3l 

Oidei No. 2001 S98.00 

lANAMonilor on cassette loi the PET 

Similar lo MONIANA/1 very powertul 

Order No. 2002 $29.00 



ELCOMP PUBLISHING Inc. 
3873-L Schaeler Ave . Ctiino CA 91710 (714) 591-3130 

Please send me the books/software indicated below 

D I enclose $ send postpaid 

_' Send COD ($5 extra) 

D Charge my D VISA □ Mastercharge 

Acci No 

Expn date Stgnatuie 



Book No 



Book No 



Soltware No 



□ 1 Year subscription to t LC0MP Newsletter $9 80 

Name Phone . 

Address 

Cily 



. Stale., 



2>P- 



CA add 6". sales tax We also accept I uroscheck All orders outside USA 
must add 15°o shipping 




The following letters are in response to the 
editorial that appeared in the March issue of 
Micro. The editorial encouraged readers to write 
to us about what they'd like to see in a 6516. Here 
are two of those responses. 



Dear Bob, 

I just read the March issue, and I am responding 
to your editorial on the "want list" for a 6516. 
Here's my list, with the most-wanted features 
first: 

1. Let all op-codes use all possible address- 
ing modes, so I won't need a wall chart to tell me 
if this op-code is allowed to use this addressing 
mode. Haven't you ever written a neat piece of 
code using, for example, ASLIY (Indirect Indexed), 
only to find that ASLIY isn't alowed? I may never 
use INCAY (Absolute Indexed by Y), but I sure 
would like to know that it's there if I ever want it. 
In my opinion, this is the best feature of the new 
6809: there are no "holes" in the op-code-versus- 
address-mode matrix. 

2. Change "Zero Page" to "Fast Page", and 
add the instruction SFP XX (set Fast Page). With 
the 6502, page zero is prime real estate. With this 
change, I can turn any page into prime real estate. 

3. BRA (Branch Always). This only saves one 
byte per use (over CLC, BCC), but those bytes do 
add up. 

4. BAS (Branch Always to Subroutine). In 
other words, a relative JSR. This would allow 
relocatable code without the hassle of 
subroutine-address look-up tables and zero-page 
trickery. 

5. INA, DEA. Increment and decrement 
accumulator. 

6. PHX, PLX, PHY, PLY. Push and pull X and Y. 



7. EAX, EAY, EXY. Exchange A&X, A&Y, X&Y. 

8. SSP XX (Set Stack Page). This would make 
the use of multipe stacks a lot easier. 

9. DEL XX (Delay XX Cycles). Better yet, make 
it DEL XX XX. This would be neater than wait 
loops, or strings of NOPs and such when equaliz- 
ing branches. Even better, DEL NN XX..., where 
NN designates number of following bytes that 
define delay time. 

10. With all of the above, who needs 16 bytes? 

Mel Evans 
Ann Arbor, Ml 



Dear Dr.Tripp, 

I am responding to your question concerning a 
revised or improved 6502. My first request would 
be to fill in ail those presently used OP codes. I 
really need more indirect addressing modes like 

LDA ($1234) 

ST A ($1234) 

[absolute indirect without index] 

I would also like an increment (and decrement) in- 
struction which automatically adds the carry into 
the next byte. I guess this is a 16 byte instruction. 

Of course PHX and PLX would also be helpful to 
save a few bytes. A new chip would have to be 
hardware compatible with my present system or I 
would have no real interest in it. 

I heard that serveral years ago MOS Technology 
had some experimental improved 6502's However, 
this program ended when they were brought out 
by Commodore. 

Dr.Morris 
Midland, Ml 



/ had really expected to receive more suggestions 
on improvements for the 6502. Does the limited 
response indicate that you are all totally satisified 
with the 6502 as it is? That would su prize me! 
Even if you only have one small but significant 
idea, let us know about it. It could make a dif- 
ference to the future development of the 6502. 



f* 



26:60 



MICRO — The 6502 Journal 



July 1980 



AIM 65 File Operations 



AIM BASIC does not have any file access statements. A 
discussion of this problem and programs to solve it are 
presented. These programs will greatly enhance the AIM 
BASIC, and provide some insight into the workings of 
the AIM. 



Christopher J. Flynn 



Introduction 

By now, most readers of MICRO 
are familiar with the physical 
characteristics of the Rockwell AIM 
65 microcomputer. The AIM 65 is a 
computer which comes complete 
with keyboard, display, and a 
printer. A few additional ICs will add 
Microsoft BASIC, a two-pass 
assembler, and an extra 3K of RAM. 
All of this can be housed in an at- 
tractive case. The result is a truly 
personal computer. It can be easily 
moved around the home or office to 
where the user is. There is no con- 
cern about detached video 
monitors, expansion interfaces, 
cables, and the like. The AIM is in- 
deed a very versatile computing 
engine. 

This attractiveness of the AIM 65 
hardware was the factor that 
ultimately prompted my wife and me 
to purchase one. We quickly learned 
how to operate it. It comes with a 
one inch thick users manual! 
Rockwell deserves a lot of credit for 
not only paying attention to 
documentation, but also for doing 
such a good job with it. 

Upon contemplating our first 
home applications, we discovered 
that not much had been written 
about the application software 
capabilities of the AIM. We were 
happily creating data bases with the 
very nifty built-in text editor. Our in- 
tention was to next use BASIC to 
perform the desired calculations on 
the data. This is where we ran into a 
problem. AIM'S BASIC has no file 
access statements! None of the pro- 



vided documentation or any other 
6502 sources could provide an 
answer to this dilemma. Did that 
mean that all that data which we 
had entered was useless? We will 
show that the answer to this ques- 
tion is a resounding NO! 

We have developed a simple 
machine language subroutine. This 
subroutine will allow a BASIC pro- 
gram to read any AIM 65 text file. 
This includes data entered from the 
text editor as well as BASIC source 
program tapes themselves. The 
subroutine is easy to use. It does 
some error checking to prevent sim- 
ple mistakes from ruining your day. 
It will also tell BASIC when the end 
of a file has been reached. As a 
bonus, the subroutine is completely 
position-independent and ROMable. 

Definitions 

Before describing our software, 
we will define a few commonly used 
terms in AIM 65 context. This will 
benefit individuals who are just lear- 
ning to use their AIM'S and also 
MICRO readers who may not be 
aware of the AIM'S capabilities. 

File: A file is a collection of data. 
AIM 65 files may reside on external 
media such as audio tape or paper 
tape. AIM 65 audio tape files may, in 
turn, be in AIM or KIM format. We 
will be concerned only with AIM 65 
format audio tape files. 

Each file is given a file name. The 
file name may be from one to five 
characters long. 



There are two types of AIM 65 
audio tape files. One type contains 
object code data. The other type 
contains text (or ASCII) data. The 
subroutine we are presenting will 
handle only text files. 

The AIM 65 has a dual cassette in- 
terface. A file may be read (or writ- 
ten) from either drive number 1 or 
drive number 2. Incidentally, we 
have found this feature to be very 
handy. 

Block: A block is the unit of in- 
formation transferred to and from 
memory and the audio cassette 
recorder. 

All AIM format tape files are 
blocked. The format of text file 
blocks is described in the Users 
Manual. Suffice it to say, each block 
in any given file will contain the 
same number of bytes. (The exact 
block length is a function of the 
number of leading SYN characters.) 
Each block, though, will always con- 
tain 79 bytes of text data. If 
necessary, the last block will be 
padded with zeroes. 

Line or Record: A line or record is 
the unit of information transferred 
to and from a program and the AIM 
monitor. 

In a text file the lines will natural- 
ly contain ASCII data. The maximum 
line length can vary. The text editor 
imposes a 60 character limit on 
lines, while BASIC limits lines to 72 
characters. The end of a line, in 
either case, is marked with a car- 
riage return. 
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Now here is where it gets tricky. 
Each block will always contain 79 
data bytes. Since the lines can vary 
in length, a line may be either wholly 
contained within a block or it may 
span a block. The machine decides 
if a line will fit in a block. If not, the 
line is split in two. This may sound 
imposing, but don't worry about it. 
We'll show how this situation is 
handled later. 

End of File: The occurrence of two 
successive carriage returns on a 
text file denotes that there are no 
more lines of data on the file. Upon 
detection of end of file, we want the 
BASIC program to stop and not to 
attempt any more read operations. 

Machine Language Subroutine: 

"Although Basic is a high level 
language, it does allow us to com- 
municate with routines that are writ- 
ten in 6502 machine or assembly 
language. Such routines are known 
as machine language subroutines." 



Appendix F of the BASIC 
Reference Manual goes into the 
details on how to make a machine 
language subroutine and BASIC talk 
to each other. 

Approach 

Getting back on track now, the 
problem we wish to solve is stated 
as follows: 

Develop a capability for making 
AIM 65 text files accessible to 
BASIC. One entire line of text 
should be passed to BASIC at a 
time. Lastly, BASIC should be 
informed when an end of file 
has been detected. 
Note that from our earlier defini- 
tions, a line may be wholly contain- 
ed in or may span a block. A key re- 
quirement that the subroutine must 
meet is the reconstruction of text 
lines when necessary. To satisfy ail 
these requirements both the 
monitor subroutines and the BASIC 
USR function will be used. 

Two AIM monitor subroutines 
which we chose for use in the 
machine language subroutine are: 

WHEREI located at $E848 

IN ALL located at $E993 

These subroutines are described in 



the Users Guide. WHEREI asks the 
user what the current input device 
will be. Assuming that the user 
responds with T (for audio tape in 
AIM format), WHEREI will then ask 
for the name of the file desired. It 
will then locate the file on the tape. 
INALL reads a character from the 
current input device. If the current 
input device is an audio tape, INALL 
will see to the tasks of properly 
handling lines. INALL will start and 
stop the tape recorder as necessary 
in order to obtain a complete line. 
Thus, two of our requirements are 
already solved. 



Interfacing a machine language 
subroutine to BASIC is straight- 
forward. The BASIC program simply 
has to poke the address of the 
machine language program into 
memory locations $04 and $05. The 
next step is to invoke the USR func- 
tion. This will start up the machine 
language subroutine. The BASIC 
Reference Manual tells us how to 
pass a single numeric value to and 
from BASIC. We will use this feature 
to pass the line length and end of 
file indicator to BASIC. 

There is one interface problem re- 
maining. That is, how do we pass 
the text line from the machine 
language subroutine to BASIC? The 
USR function limits us to a numeric 
value. Well, we will be bold and 
make an assumption. Then we will 
design the subroutine to fit the 
assumption. Assume that the 
BASIC program has defined a 
character string variable named A$. 
Furthermore, assume that the A$ is 
80 bytes long. We can then design 
the machine language subroutine 
so that it will locate A$ in BASIC'S 
memory and store the text data 
there. If A$ is guaranteed to be 80 
bytes long, we can be sure that text 
editor and BASIC lines can be read. 

There are other approaches to 
reading these text files. For exam- 
ple, the USR function can be used to 
call WHEREI. The AIM 65 can then 
be put in the tape mode. At this 
point, the BASIC program can issue 
INPUT statements to read data 
directly from the tape. This ap- 
proach is very simple and to the 
point. However, it suffers from two 
disadvantages. First of all, since the 
input device was changed to a tape, 
the keyboard is deactivated for the 



entire duration of the file read. This 
can be nasty, especailly if your pro- 
gram requires some input from the 
user as it is running. The second 
disadvantage is that the data on the 
tape must be in the proper format to 
be processed by the INPUT state- 
ment. This means that there must 
be commas between values and that 
string data may need to be enclosed 
in quotation marks. 

At the expense of a machine 
language subroutine, we have 
developed a method of reading AIM 
text files which is completely 
general. Any text file, including 
BASIC source programs, can now 
be read with BASIC. We have ad- 
dressed the problems mentioned 
above. The AIM 65 is put in the tape 
mode only as long as it takes to read 
one line. The data on the tape can 
be in any format - you do not nave to 
worry about commas and quotation 
marks. 

Loading the Subroutine 

Although our listings show that 
the subroutine is located at $7C00, 
the subroutine is completely 
position-independent. This means 
that you can put it anywhere in 
memory that you like. You will not 
have to change a single byte of 
code. Of course, you will have to 
remember where you put it because 
BASIC will need to know. 

The hex dump in Figure 1 is pro- 
bably easier to work with when in- 
itially entering the machine code. If 
you prefer to enter the code in in- 
struction format using Figure 2, just 
be careful of the absolute ad- 
dresses which appear as branch 
operands. For ease of future use, 
you will probably want to store the 
machine code on tape. Thereafter, 
the subroutine can be loaded with 
the 'L' monitor command. 

When bringing up BASIC, be sure 
to respond properly to the MEMORY 
SIZE question. Respond with the dif- 
ference of the number of bytes of 
RAM in your system minus 164 
bytes for the subroutine. For exam- 
ple, MEMORY SIZE in a 4K system 
would be 4096 - 164 or 3932. 

Procedure 

We hope that the subroutine has 
been put together so that it is easy 
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to use. Only three steps are required 
to read AIM 65 text files: 

1. Open the file. 

2. Invoke the USR function. 

3. Test the USR function return 

code. 

Step 1 - Open the File 

A file is opened by zeroing 
memory location $F5 (245 decimal). 
This causes the subroutine to in- 
voke WHEREI in the AIM monitor. In 
BASIC we open a file as follows: 

10 POKE 245,0 

If you intend to read more than one 
file in the same BASIC program, you 
must open each one of them at the 
appropriate time with a POKE state- 
ment. Only one file can be open at a 
time. 

Step 2 - Invoke the USR Function 

One text line or record will be 
returned to the BASIC program each 
time the USR function is used. We 
will illustrate this in BASIC: 

20 A$ = "" 

30 FOR I = 1 TO 80 

40 A$ = A$ + "*" 

50 NEXT 

60 POKE 4,0 

70 POKE 5,124 

80 L = USR (0) 

Lines 20 through 50 set up A$ as an 
80 byte character string in accor- 
dance with our design criteria. If the 
BASIC program does not alter the 
length of A$ during subsequent pro- 
cessing, these lines could be moved 
to the section of the BASIC program 
that opens the file. The important 
thing to remember is that the 
subroutine will insist that A$ is 80 
bytes long — no more or no less. 

The contents of A$ prior to calling 
the subroutine, however, do not mat- 
ter. Before giving you any data, the 
subroutine will always blank out A$. 
Thus, you are guaranteed not to en- 
counter any data left over from a 
previous line. 

Lines 60 and 70 are very impor- 
tant! They tell BASIC where the 
machine language subroutine is 
located. Line 60 POKEs the low 
order byte of the address (expressed 
in decimal) into memory location 
$04. Similarly, line 70 POKEs the 



high order byte of the address into 
memory location $05. In our exam- 
ple, the machine language 
subroutine is located at $7C00. 
Make sure you tailor lines 60 and 70 
for your system. 

If this is the only machine 
language program that your BASIC 
program is using, the two POKEs 
may also be included as part of the 
file opening logic. 

Finally, line 80 invokes the USR 
function. This causes BASIC to call 
our machine language program. We 
are not passing a value to the 
machine language subroutine.The 
is just a dummy argument. The 
machine language subroutine will 
read the next text line from tape and 
give it back to us is A$. BASIC will 
resume processing with the next 
statement after line 80. 

Step 3 
Test the USR Function Return Code 

In line 80, the USR function pass- 
ed a value back to the variable L. We 
call this value a return code. It can 
be assigned to any numeric variable 
- it doesn't have to be L. The value of 
the return code tells us the status of 
the read operation. 

a. Return code is less than 

If the return code is negative, 
this means that an error condition 
has been detected. Probable error 
conditions are that A$ was undefin- 
ed or not 80 bytes long. (The AIM 
monitor worries about catching read 
errors.) 

b. Return code is equal to 

The return code will be set to 
zero when end of file is reached. No 
special action is required to "close" 
the file as it is done automatically. 

c. Return code is greater than 
A successful read operation 

will be signalled by a return code 
which is greater than zero. Further- 
more, the return code will tell you 
the actual number of data bytes 
which were stored in A$. In other 
words, it will tell you the line length. 

WARNING: Under no circumstances 
should another read be executed 
after end of file has been detected. 
If this should happen, you may have 
to hit the reset switch to regain con- 
trol. 



We might finish our example this 
way: 



90 IF L < THEN STOP 

100 IF L = THEN PRINT 

"DONE":END 

110 PRINT LEFT$(A$,L) 

120 GOTO 80 



Lines 90 and 100 terminate the pro- 
gram on an end of file or error condi- 
tion respectively. Line 110 prints the 
text line. Line 120 branches back to 
read the next text line. 

Summing It Up 

Our sample program is printed in 
its entirety in Figure 3. Make a cou- 
ple test files with the text editor. 
Run the test files through our sam- 
ple program. You should see the 
lines of data that you entered prin- 
ting out one by one. If you encounter 
any problems, go back and check 
the machine code carefully. Make 
sure that you've POKEd $04 and $05 
with the correct address. 

We hope that this capability to 
read text files adds a new dimen- 
sion to your computing. 



Figure 1 



< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 



•7C00 
7C04 
7C08 
7C0C 
7C10 
7C14 
7C18 
7C1C 
7C20 
7C24 
7C28 
7C2C 
7C30 
7C34 
7C38 
7C3C 
7C40 
7C44 
7C48 
7C4C 
7C50 



AD 12 
A5 75 
A5 76 
AS 77 
DO 12 
C5 fi 
A0 FF 
68 8D 
8A 6C 
AO 00 
C9 41 
C8 Bl 
80 F0 
A5 F0 
85 TO 
E6 Fl 
AO 02 
99 F0 
CO 05 
A4 F2 
DO C6 



A4 48 
85 F0 
85 Fl 
C5 F0 
A5 78 
DO OC 
A2 FF 
12 A4 
08 B0 
Bl FO 
DO 07 
F0 C9 
CD 18 
69 07 
90 DO 
DO CC 
Bi F0 
00 C8 
DO F6 
CO 50 
88 A9 
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< > 

< > 

< » 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 

< > 
< 



7C54 
7C58 
7C5C 
7C60 
7C64 
7C68 
7C6C 
7C70 
7C74 
7C78 
7C7C 
7C80 
7C84 
7C88 
7C8C 
7C90 
7C94 
7C98 
7C9C 
7CA0 



20 91 
10 FB 
DO 08 
E8 AD 
85 F6 
A5 F6 
A4 20 
C9 OA 
C9 OD 
C5 F5 
FO OB 
FO 9A 
85 F5 
DF AO 
34 A4 
AD 00 
10 8D 
DO E4 
A8 09 
00 A8 



F3 88 
A5 F5 

20 48 
12 A4 
AO 00 
8D 12 
93 E9 
FO F9 
DO OA 
85 F5 
A2 00 
91 F3 
C8 DO 
00 AD 
DO OA 
A8 09 
00 A8 
AD 00 
20 8D 
DO DA 



Subroutine Logic 

We've included in this section a 
technical description of how the 
machine language subroutine 
operates. This should give you 
enough information to modify the 
subroutine to fit your particular 
needs. 

Figure 4 depicts the logic of the 
machine language subroutine. The 
logic is described through the use of 
Warnier-Orr diagrams. Readers who 
are not familiar with these diagrams 
should refer to the December 77, 
January '78, and March '79 issues of 
BYTE. Very basically, Warnier-Orr 
diagrams are interpreted as follows. 
The sequence in which operations 
are performed is given by reading 
from the top of the diagram to the 
bottom. The hierarchy of functions 
flows from left to right. As we go 
through the actual subroutine logic, 
the power of this design technique 
will become more apparent. 

Figure 5 summarizes the use of 
zero page variables. These locations 
are shared with the text editor. 
However, since the text editor and 
BASIC do not operate concurrently, 
there is no conflict. 

Upon entry to the subroutine, an 
AIM monitor variable INFLG is sav- 
ed on the stack. INFLG tells AIM 
what the current input device is. 
Since the subroutine will change the 



input device to audio tape, we have 
to be careful here not to lose track 
of input devices. The next task is to 
examine BASIC'S symbol table to 
determine if A$ has been defined as 
an 80 byte character string accor- 
ding to our design assumptions. In 
either case, the logic will proceed to 
a next lower hierarchical level. This 
is indicated by the next sets of 



braces to the right. When control is 
returned back to the first level, IN- 
FLG is restored from the stack. 
Most often, this will again put the 
AIM in the keyboard mode. Finally, 
the subroutine passes a return code 
to BASIC. The 16 bit integer return 
code in registers A,Y (MSB, LSB) is 
given to BASIC by a JMP indirect to 
location $B008 in the BASIC ROM. 



K»*-7C00 
/40 
7C00 AD LDA 
7C03 48 PHA 
7C04 A5 LDA 
7C06 85 STA 
7C08 A5 LDA 
7C0A 85 STA 
7C0C A5 LDA 
7C0E C5 CMP 
7C10 DO BNE 
7CI2 A5 LDA 
7C14 C5 CMP 
7C16 DO BNE 
7C18 AO LDY 
7C1A A2 LDX 
7C1C 68 PLA 
7C1D 8D STA 
7C20 8A TXA 
7C21 6C JMP 
7C24 AO LDY 
7C26 Bl LDA 
7C28 C9 CMP 
7C2A DO BNE 
7C2C C8 INY 
7C2D Bl LDA 
7C2F C9 CMP 
7C31 FO BEQ 
7C33 18 CLC 
7C34 A5 LDA 
7C36 69 ADC 
7C38 85 STA 
7C3A 90 BCC 
7C3C E6 INC 
7C3E DO BNE 
7C40 AO LDY 
7C42 Bl LDA 
7C44 99 STA 
7C47 C8 INY 
7C48 CO CPY 
7C4A DO BNE 
7C4C A4 LDY 



A412 

75 

FO 

76 

Fl 

77 

FO 

7C24 

78 

Fl 

7C24 

#FF 

#FF 

A412 



Figure 2 

Save INFLG 

Start of BASIC'S symbol table 

Reached end of symbol table? 
No... 



No. .. 

Error exit - set return code to -1 

Normal exit 
Restore INFLG 



CB008) Return to BASIC 
#00 

<F0)*Y 

#41 Have we found A$? 

7C33 



Point to next symbol table entry 



CF0>*Y 

#80 
7C40 

FO 

#07 

FO 

7C0C 

Fl 

7C0C 

#02 Found A$. . . 

CF0)*Y Get address and length of A$ 

00F0#Y 

#05 

7C42 

F2 
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Assuming A$ satisfies the design 
assumptions, the subroutine will set 
A$ to blanks. This is done every time 
the subroutine is called. Next a 
counter which counts the number of 
data characters read is zeroed. Then 
a test is performed to determine if 
the subroutine is being called for 
the first time. (NOTE: the sucess of 
this test relies on the BASIC pro- 
gram to POKE location $F5 to 0.) IN- 
FLG is next restored from a tem- 
porary variable at $F6. The AIM 



should now be configured to accept 
input from audio tape. So then the 
character read routine is called 
repeatedly until a carriage return is 
detected and processed. 

If A$ does not meet our design 
assumptions, the return code is set 
to -1. This should alert the BASIC 
program of an error condition. 

IF the subroutine is being called 
for the first time, the AIM subroutine 



Figure 2 cont. 



K>* 
/40 
7C4E 
7C50 
7C52 
7C53 
7C55 
7C57 
7C58 
7C5A 
7C5C 
7C5E 
7C61 
7C64 
7C66 
7C68 
7C6A 
7C6D 
7C7 
7C72 
7C74 
7C76 
7C78 
7C7A 
7C7C 
7C7E 
7C80 
7C82 
7C84 
7C86 
7C87 
7C89 
7C8B 
7C8E 
7C90 
7C93 
7C95 
7C98 
7C9A 
7C9D 
7C9F 
7CA2 



7C4E 



CO CPY 
DO BNE 
88 DEY 
A9 LDA 
91 STA 
88 DEY 
10 BPL 
A5 LDA 
DO BNE 
20 JSR 
AD LDA 

8 5 STA 
A0 LDY 
A5 LDA 
8D STA 
20 JSR 
C9 CMP 
FO BEG 
C9 CMP 
DO BNE 
C5 CMP 
85 STA 
FO BEO 
A2 LDX 
FO BEO 
91 STA 
85 STA 
C8 INY 
DO BNE 
A0 LDY 
AD LDA 
DO BNE 
AD LDA 

09 0RA 
8D STA 
DO BNE 
AD LDA 
09 0RA 
8D STA 
DO BNE 



#50 
7C18 

#20 
<F3>/T 



Is A$ 80. bytes long? 
No, then error 
Yes, blank -out A$ 



7C55 

F5 

7C66 

E848 

A412 

F6 

#00 

F6 

A4I2 

E993 

#0A 

7C6D 

#0D 

7C82 

F5 

F5 

7C89 

#00 

7C1C 

<F3>, 

F5 

7C68 

#00 

A434 

7C9A 

A800 

#10 

A8 00 

7C7E 

A800 

#20 

A800 

7C7E 



Is it the first time called? 

WHEREI 

Store new INFLG in a temporary- 



Restore INFLG from the temporary- 
variable 
INALL 
Ignore line feeds 

Is it a CR? 

No... 

Was previous char a CR? 

Yes.*.. 

End of text line 
Return to BASIC 
Y Store the char in A$ 



Now go read the next char 

End of file . . . 

Which tape drive are we using' 

Turn drive 1 on 



Exit 
Turn 



Exit 



WHEREI is invoked. WHEREI issues 
the familiar prompt: 
OUT = 
Normally the user responds with 
"T". The AIM monitor will then pro- 
mpt for the file name and tape drive 
number. When WHEREI finishes, IN- 
FLG, which was just set by WHEREI, 
will be stored in a temporary at $F6. 
This completes the initialization se- 
quence. 



Figure 3 



LIST 



drive 2 on 



10 POKE 245*0 
20 AS ■ "" 
30 FOR I - 1 TO 80 
40 AS « AS ♦ •»*" 
50 NEXT 
60 POXE 4*0 
70 POXE 5* 124 
80 L - USR(O) 
90 IF L < THEM STOP 
100 IF L ■ THEN PRINT 
"DONE" I END 
110 PRINT LEFTS<AS,L> 
120 GOTO 80 

WARNING: Locations 4 and 5 must 
be POKEd with the physical address 
of the machine language 
subroutine. In this program the 
subroutine is at $7C00. 

The read character routine calls a 
lower level read routine until a 
character other than a line feed is 
found. The purpose for skipping line 
feeds, is to facilitate the reading of 
BASIC source program tapes. 
(BASIC prefixes each source pro- 
gram line with a line feed.) One of 
two lower level routines is then in- 
voked depending on whether the 
character just obtained is a carriage 
return or not. 

The lowest level read character 
routine is simply an invocation of 
the subroutine INALL. INALL will ob- 
tain a character from the current in- 
put device. 

If the character obtained is a car- 
riage return, the previously read 
character is examined. If the current 
character is not a carriage return, 
the current character is stored in the 
next available byte of A$ (pointed to 
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by $F3 and $F4). The count of the 
number of characters read is up- 
dated. 

If the current and previous 
characters are both carriage 
returns, end of file has been 
detected. The proper tape drive is 
turned back on (INALL turned it off) 
so the tape can be rewound. Then 
the return code is set to 0. 

If the current character is a car- 
riage return, but the previous 
character was not, the end of a line 
has been reached. The return code 
is set to the count of the number of 
characters read. Note: the carriage 
return is neither counted not stored 
in A$. 



Figure 4 



H 



Save INFLO 
on stack 



AS Is drrinpd a 
60 byte stritif, 
(0,1) 



Set At to blank* 
Set character count 
to 



First >.■;:■-■ i 
(0,1) 



Restore lNrXQ frc* 
temporary 



{ 



Call WHERE. 

IHFLO to temporary 



< 



® 



Tape Read ^ 

Subroutine ^ 



Christopher Flynn became in- 
terested in microcomputers when 
ne assembled a MITS Altair com- 
puter kit in 1976. Since then, he has 
obtained a KIM-1 and an AIM-65. His 
KIM system interfaces to several 
S-100 boards by means of a KIMSI 
Motherboard. 

The AIM is his favorite system. It 
has 32K of RAM and uses a Model 
33 teletype for hardcopy output. His 
software interests include 
Assembly language and BASIC. 

Applications developed on the KIM 
and AIM range from an interpreter to 
a home budgeting and accounting 
system. To support this hobby, 
Chris is employed by the Fairfax 
County government as a systems 
analyst for the county's tax 
systems. 

Christopher's wife, Nancy, has 
learned to program in BASIC. Their 
two year old daughter, Becky, when 
asked what her father's name is, 
has been known to respond, 
"6-5-0-2". 



Read a character ^ 

(until f.R.l 



At is defined as 
60 byte string 
(0 t ») 

Restore IHFIO from 
stack 



Return to BASIC 

tu tnoofl 



Set return code to -1 



Oet character 
(skip L.F.) 



Character Is 
a C.R. 

(0,1) 



© 



haraoter la / 

.». \ 

(o,i) V. 



Character 
C 



Previous chi 
• C.R. 
(0,1) 

© 

Previous char 
■ C.R. 
(0,1) 

Store char In i 
Count Urn char 



(Turn tape on 
Set return cod- 
lo 

(Set rttum code 
to char count 



{• 



STMTAB 


$F0,$F1 


LEN 


$F2 


APNT 


$F3,$FU 


TEMP 


$F5 


TINFLG 


$F6 



Figure 5 

Pointer to BASIC symbol table 
Length of A$ 

Pointer to A$ in BASIC'S memory 
First time switch; hold area 
INFLG hold area 
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Make Interfacing Easy! 

VIA W/W Prototyping Board Kit. In- 
cludes 6522 IC and full address 
decoding with prototyping area for up 
to 12-16 pin IC's. 

Duplicates AIM/SYM/KIM expansion 
connector pinout. High quality double 
sided 4.5"X4.5" board with 22/44 gold- 
plated card edged fingers. 
Price $69.95 

VIA (6522) contains two 8 bit program- 
mable I/O ports with additional hand 
shake lines, two timers, and a serial to 
parallel/parallel to serial shift register. 
The VIA facilities interfacing 
keyboards, printers, A/D and D/A con- 
verters to the microprocessor system. 

Expansion Bus Extender Kit 

3 female and 1 male connector — 
allows two or more cards to be con- 
nected to bus. Price $24.95. 
(Note: Bus extender and two cards will 
fit inside Enclosure Group AIM case.) 

Power Supply Kit for combined Analog 
and Digital projects 5v @ 300ma ± 
15v @ 50ma 2"X4" Price $32.95. 



Money Order or certified check assures pro- 
mpt delivery. Personal checks must clear 
before shipment. California residents please 
add 6 % tax. $1.50 shipping and handling on 
each order. 

COMING SOON! 

Single channel 25 usee 12 bit A/D 

16 channel 100 usee 8 bit A/D 

TMS 2532 Prom Programmer 

Clock/Calendar with battery backup 

Unique Concepts Corporation 

1157 Jordan Lane 

Napa, CA 94558 

(707) 253-8426 



m 



BOX 1 20 

ALLAMUCHY. NJ 07820 
201-362-6574 

inc. 



HUDSON DIGITAL ELECTRONICS INC. 



COMING SOON! 




For 6502 Systems Development 
Engineering Support 
Word Processing Applications 

The latest in a continuing series of 
advanced hardware and computer pro- 
gram products for KIM, AIM, TIM, SYM. 



JOHNSON COMPUTER 

Box 523, Medina, Ohio 44256 

(216) 725-4560 

ARESCO 

P.O. Box 43, Audubon, Pa. 19407 

(215) 631-9052 

PLAINSMAN MICROSYSTEMS 

Box 1712, Auburn, Ala. 36830 

(800) 633-8724 



FALK-BAKER ASSOCIATES 

382 Franklin Ave., Nulley, NJ 071 10 

(201)661-2430 

PERRY PERIPHERALS 

P.O. Box 924, Miller Place. NY 1 1 764 

(516) 744-6462 

PROGRESSIVE COMPUTER 

SYSTEMS 

405 Corbin Rd„ York, Pa. 1 7403 

(717)845-4954 




MICRO Club Circuit 



Here is yet another installment of 
6502-related clubs. We continue to 
be encouraged by the terrific 
response to our request for new 
clubs. Now we have so many that 
we can't print them all in a single 
two-page listing! 

If you have registered with us and 
you are not presented here, do not 
be dismayed. Next month you will 
be first on the list! The mail has just 
been loaded with club information. 

Those of you who are listed please 
take a moment to make sure that 
the information is correct. Notify us 
of any errors. Up-dates should be 
sent to us periodically. 

Does your club publish a newslet- 
ter? Do you need advertiser's? Want 
to exchange an ad? If the answer to 
any of these questions is yes, then 
let us know! 

To become an officially registered 
club please send for the correct 
form. This is the only way to get a 
free one year subscription for your 
club's library. Have your club listed 
to increase your membership. 

Address any information or re- 
quests to: 

MICRO Club Circuit 

P.O. Box 6502 
Chelmsford, MA 01824 

Western Educational Computing 
Conference, San Diego, California 

November 20, 21 

The theme of the seminar/exhibit is 
"Educational Computing in the 
'80's" and will feature papers and 
seminars on the use of computing in 
higher education for instruction, ad- 
ministration, and research. Lun- 
cheon speakers will be Capt. Grace 
Hopper, USN, and Bernard 
Luscombe, President, Coastline 
College. 

For further information contact: 
Ron Langley 

Director, Computer Center 
California State University 
1250 Bellflower Boulevard 
Long Beach, California 
90840 



Texas A&M Micro Computer Club 

This club meets every two weeks on 
Wednesday nights. Conrad G. 
Walton Jr. is the President of 80 
members. He can be contacted at: 

Box M-9 

Aggieland Station, TX 

77844 
"The club owns 2 8K Pets and one 
SWTPC 6800 system with Pencom 
disk. Aim to provide education for 
the community in the applications 
and use of micro-computers. " 

Forth Interest Group 

This educational club asserts that 
their world-wide membership is 950. 
They meet on the fourth Saturday of 
the month. They list no contact per- 
son but the address for their club is 

P.O.Box 1105 

San Carlos, CA 94070 

Apple Information and Data Ex- 
change 

Meets on the second Tuesday of 
each month at: 

Computer Corner 
1800 S. Georgia 
Amarillo, TX 79109 
George Johnson is the President of 
AIDE. Theiraddress is: 
5700 Dixon 
Amarillo, TX 79109 
"Mutual aid and sharing of informa- 
tion. " 

Apple Puget Sound Program 

Meets on the second Tuesday of 
each month. Over 3000 members. 
Dick Hubert is the President. 
A.P.P.L.E. Library Exchange. Con- 
tact: 

Fred Merchant, Sec. 
51 7-1 1th Avenue East 
Seattle, WA 98102 
"Assists its members in the use and 
understanding of the Apple Com- 
puter. One time Apple-Cation fee 
and annual dues." 

Madison Pet User's Club 

Meets on the first Thursday of the 
month at 7:30 pm in the Washington 
Square Building. Membership 
around 50. Contact: 
B.A. Stewart 



501 Willow 

W. Baraboo, Wl 53913 
"Exchange Information." 

New England Computer Society 

Meets on the first Wednesday of the 
month at the Mitre Corporation 
Cafeteria in Bedford, MA. Robert 
Waite is the President over 200 
members. Contact: 

David Mitton, Sec. 

P.O.Box 198 

Bedford, Mass. 01730 
"General purpose, personal/hobby 
computing, technical information 
sharing. " 



San Francisco Apple Core 

Meets first Saturday of the month. 
Randy Fields is President. Member- 
ship of over 800. Contact: 

Randy Fields 

P.O. Box 4816 

San Francisco, CA 94101 

Winnipeg Apple Computer Group 

Meets on the first Thursday of each 
month at 7:30 in the Computerland 
Store. Acting President is Mike 
Flood. Membership is still growing 
— over 30 currently. Contact Mike 
at: 

5-1730 Taylor 
Winnipeg, Manitoba 
Canada, R3N 0N8 
"Increase members knowledge of 
programming, hardware, and data 
processing. Newsletter. " 

Burlington Micro Club 

Meets on the last Wednesday of the 
month at 7:30 pm at various loca- 
tions. William Morris, President over 
25 members. Contat him at: 

67 Moxley Drive 

Hamilton, Ontario 

Canada, L8T 3Y8 
"Membership is open to everyone. 
Micro user '80, a club newsletter. " 

6502 Comp-Club 

Meets at various places. Members 
and those interested are notified 
through the mail as to the monthly 
arrangements. Robert Wilson is 
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club President. Over 25 members. 
For current information contact: 

R. Wilson 

Box 6007 

Lawrenceville, N.J. 08648 
"Purpose: To consumate interest 
and to further knowledge of 6502 
computers." 

Erie Apple Crunchers 

Rudy A. Guy is President over this 
newly organized group of 25 avid 
users. Contact them for more infor- 
mation: 

P.O. Box 1575 

Erie, PA 16507 
"Membership is open to all Apple or 
Bell & Howell Apple owners or 
users. Developing a software library 
and we are willing to exchange soft- 
ware with other individuals or 
groups. " 

N.I.C.H.E. 

Northern Indiana Computer 

Hobbyist 

Meets in the South Bend area on the 
last Monday of almost every month. 
Contact: 

Eric Bean 
927 S 26 Street 
South Bend, In 46615 
"The meetings are open to all com- 
puter hobbyists, but is dominated 



by PETs." 

Apple Byter's Computer Club 

Information regarding this club 
should be requested from S.E. 
Grove, Pres., Mail Station 33, Bldg 
R-19 

H.E.S.E.A. 

Hughes Aircraft 

2060 Imperial 

El Sugundo, CA 90245 
"A private club for Hughes 
Employees only but open to guests. 
Education of members in the use of 
computers by programmers and 
others. Buy at group rates, ex- 
change software in public domain, 
and member of the I.A.C. (interna- 
tional Apple Core) Grow with others 
in the Greatest Hobby EVER!" 

UPDATES— UPDATES— UPDATES 

OSIO 

Washington, VA, MD group meets 
the first Tuesday of each month. 
Meets at the Walter Johnson High 
School in Rockville, Md. Contact: 
Wallace Kendall, Pres. 
9002 Dunloggin Road 
Ellicott City, MD 21043 
"Study, advance, and promote the 
application of computers; publish 
newsletters; sponsor conferences, 
workshops, symposia, demonstra- 



tions, and publications on com- 
puters, etc." 



Apples British Columbia 
Computer Society 

Meets first Wednesday of every 
month at 7:30. Various locations. 
Gary Little is President for 95 
members. Contact him at: 

101-2044 West Third Ave 
Vancouver, B. C. Canada 
V6J 1L5 
"All members are Apple II owners, 
aim is to discuss software and hard- 
ware. " 

Apple Sac 

Meets on the first Tuesday and third 
Wednesday of each month, with 
Assembly language classes on the 
third Tuesday. Bill Norris is presi- 
dent. 80 plus members. Contact: 
Jerry Jewell 
Computerland of 
Sacramento 
1537 Howe Avenue 
Sacramento, Ca 95825 
"Fun, education, social, sharing of 
ideas and programs." 



SERENDIPITY SYSTEMS: 

PROGRAMS FOR 
APPLE II COMPUTERS 

Your Apple II computer can do more when you use professional software 
products from Serendipity Systems. 

Serendipity has developed programs especially designed for the Apple ll. 
such as a video message display system, an interactive statistical 
package, programs for bookkeeping .and inventory control, 
even a sophisticated program for advanced 
mathematical routines. 
Serendipitys Apple II programs add a new dimension 
to this exciting and versatile computer. 
Our new 48-page catalog has more details on these 
other software solutions. 
Send S 1 for your copy. 



^SERENDIPITY 
Systems Inc. 
225 clmira rd, ithaca i\y 
14850 (607) 277-4889 




SOFTWARE 



FOR 



□ 51 



Video Games 1 $15 

Head -On. Tank Battle, Trap! 

Video Games 2 15 

Gremlin Hunt, Indy 5000, Gunfight 

Board Games 1 15 

Cubic, Mini-Gomoku 

Dungeon Chase 10 

A real- time, D&D , video game 

C1 Shorthand 12 

Two key command entry 

One tape supports all recent ROM systems. 
Color and sound on video games. Some 
programs on disk. 

FREE CATALOG 

Orion Software Associates 

147 Main Street 

Ossining.NY 10562 



OHIO SCIENTIFIC 



Hardware..C1 P Video— gives true 32 or 64 chrs/line 
with guard bands. This is not a make-shift mod. It 
makes your video every bit as good as the 4P's plus 
you have switch selectable 1,2 and 3 MHz. CPU clock 
as well as 300, 600 and 1200 baud for cassette and 
serial port all crystal controlled. 

Complete plans— $18.95, Kit $39.95 or send in your 
C1P to Personal & Business Computer Connection, 
38437 Grand River, Farmington Hills, Mich 48018, and 
we will install the Video mod for $79.95. Other mods 
available.. add sound; RS-232 port cassette motor con- 
trol. 

Software (with documentation) For CI, C2, 4P & 8P 
Chess 1.9, Backgammon, excellent card games, ar- 
cade type games, utility programs, mini word pro- 
cessor memory maps, etc. 

Catalog with free program (hard copy) & memory map 
for BASIC in ROM models...$1.00 

Progressive Computing 

3336 Avondale Crt. 

Windsor, Ontario 

CANADA N9E 1X6 

(519)969-2500 



OSI SOFTWARE FOR OSI 

We Have Over 100 High Quality Programs For Ohio Scientific Systems 

TEXT EDITORS FOR ALL SYSTEMS!! 



OSI 



o 
s 

I 



ADVENTURES AND GAMES 

Adventures - These interactive fantasies will fit 
in 8K! You give your computer plain english 
commands as you try to survive. 

ESCAPE FROM MARS 

You awaken in a spaceship on Mars. You're in 

trouble but exploring the nearby Martian city 

may save you. 

DEATHSHIP 

This is a cruise you won't forget - if you survive it! 

Adventures $14.95 Tape or 5'/4" Disk 
$15.95 8" Disk 

STARFIGHTER $5.95 



Realtime space war with realistic weapons and a 
working instrument panel. 

ALIEN INVADER 6.95 (7.95 for color and sound) 
Rows of marching munching monsters march on 
earth. 



TIME TREK $9.95 

A real time Startrek with good graphics. 

BATTLEPAC $17.95 

For the battlebuff. Contains Seawolfe. Starfighter, 
Bomber and Battlefleet. 



And lots, lots, lots more! 



Our $1 .00 catalog contains a free program list 
\ forgot to mention and lots more programs lik 




These programs allow the editing ol basic 
program lines. All allow for insertion, deletion, 
and correction in the middle of already entered 
lines. No more retyping. 

CI P CURSOR CONTROL (Text Editor) $9.95 

Takes 166 bytes of RAM and adds, besides text 
editing, one key instant screen clear. 

C2P/C4P CURSOR $9.95 

Takes 366 BYTES to add PET like cursor 
functions. Enter or correct copy from any location 
on the screen. 

SUPERDISK $24.95 for 5" $26.95 for 8" 

Has a text editor for 650 plus a great new 
BEXEC. a renumberer, search, a variable table 
maker and Diskvu - lots of utility for the money. 

We also have 25 data sheets available such as: 

IMPLEMENTING THE SECRET SOUND PORT ON 

T HE CIP S4.00 

HOW TO DO HIGH SPEED GRAPHICS IN BASIC 
$4.00 

HOW TO READ A LINE OF MICROSOFT $1 .00 

JOYSTICK INSTRUCTIONS AND PLANS FOR 
C1P $3.00 

SAVING DATA ON TAPE $4.00 
THE AARDVARK JOURNAL 

A tutorial bimonthly journal of how to articles 
$9.00 



isting. programming hints, lists of PEEK and POKE locations and other stuff that OSI 
ke Modem Drivers. Terminal Programs, and Business Stuff. 

Aardvark Technical Services 1 690 Bolton, Walled Lake, Ml 48088 (31 3) 624-631 6 
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The MICRO Software Catalog: XXII 



Software announcements for the 6502 based systems 



Mike Rowe 

P.O. Box 6502 

Chelmsford, MA 01824 



Name: 


ALGEBRA 


System: 


PET 2001 


Memory: 


8K or more 


Language: 


BASIC, Machine 



Description: A series of 7 programs 
(on one cassette) designed to assist 
a student through various levels of 
the subject. Topics include: Set 
operations, signed arithmetic, linear 
equations, factoring, and quadratic 
equations. An example of each 
class of problem is given, followed 
by a changing sequence of pro- 
blems to be solved by the student. 
After each problem, as answer is 
provided to check results. Other Pet 
software available. 



Copies: 
Price: 
Author: 
Available: 



Name: 

System: 

Memory: 
Language: 

Hardware: 



New Release 
$19.95 
Len Bugel 

TYCOM Associates 
68 Velma Avenue 
Pittsfield, MA 01201 

Computer Station 
Single Disk Copy 
Apple II or Apple II 
Plus 
32K 

Integer Basic or Ap- 
plesoft 
Apple II, Disk II 



Description: Program will copy a 
complete diskette using an Apple II 
with only a single disk drive. The 
program will function properly on an 
Apple II or Apple II Plus with or 
without the Applesoft ROM Card or 
the Language System. It will run 
with DOS 3.1, DOS 3.2, or DOS 3.2.1 
and will run on either a 32K or 48K 
system. On a 32K system it will take 
five passes for a full diskette while 
only three on with 48K. Requires a 
maximum of 3 passes on a 48K 
system, does verification, will in- 
itialize if desired and is faster than 
Apple's two disk copy. 



Price: 



Includes: 

Author: 

Available: 



Name: 



System: 
Memory: 
Language: 
Hardware: 



$29.95, $2.00 s&h 
IL residents add 5 % 
sales tax. 

Diskette, phamphlet 
Joel Upchurch 
Computer Station 
12 Crossroads Plaza 
Granite City, IL 
62040 

AMATEUR RADIO 

COMMUNICATIONS 

PACKAGE 

Apple II, Plus 

16K 

Interger 

Radcom Plus Card 

(supplied), Disk II 



Description: Send-Reveive RTTY and 
Morse Code. Interface installs in 
Slot 2. Active bandpass filters. FSK 
output. Narrow Shift (170 HZ). LED 
tuning indicators. Scope monitor- 
ing. Computer grade circuit board. 
Gold plated contacts. Assembled 
and tested. Baudot speeds con- 
tinuous 32 to 300 Baud. ASCII to 
1200 Baud. Morse Code speeds 2 to 
125 WPM. Split screen, receive, Xmit 
and Xmit buffer. Save text from a 
buffer to the Disk. Load text from 
Disk to a buffer (TX/RX). Display cur- 
rent system status or catalog. Nor- 
mal/Invert RTTY Rx key control. 
Stored massages to limit of RAM. 
Much more! 



Copies: 

Price: 

Includes: 



Authors: 



Available: 



Just released 
$190.00 
Radcom 
Plus = Card, Soft- 
ware on Disk, doc. 
Radcom Plus Card 
by Alex M. Massimo 
AF6W 

Software by Dr. 
Chris H. Galfo WB4- 
JMD 

Alex M. Massimo 
4041 41st Street 



Name: 

System: 
Memory: 
Language: 
Hardware: 



San Diego, CA 
92105 



The Creativity Life 

Dynamic Package 

Apple II 

48K 

Applesoft, Machine 

Apple II, Disk II 



Description: Draw, Write Music, 
Write Poetry! Draw Circles, elipses, 
triangles, frames, enclosures, 
fireworks, squares, etc. (many 
more!) all at the touch of a key or 
two (without hitting return). Fill or 
partially fill any of the above figures 
to create an infinite variety of 
figures. Change to and from Re- 
gressive & Symmetry Modes. Write 
Music using your keyboard like a 
piano. Watch your notes be named 
and written on a cleff. Easily change 
pitches and durations. Write a 
poem. Choose 1, 2, or 3 forms, save 
and play later! MUCH MORE!! 



Copies: 

Price: 

Includes: 



Author: 



Name: 

System: 
Memory: 
Language: 
Hardware: 



Many 
$19.95 

Disk, 88 page Prog. 
Manual, 2 drawing 
cards. 

Avant-Garde Crea- 
tions 

P.O.Box 30161 MCC 
Eugene, OR 97403 

GAF Software Utili- 
ty Packages 1 & 2 
Apple II, Plus 
32K 

Integer, Applesoft 
Apple with Disk II 



Description: A collection of useful 
utility programs. Utility 1: File Com- 
pare, a program that allows compar- 
ing of two versions of a program and 
reporting all differences to your 
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screen, printer, or disk file. Menu, a 
general purpose HELLO program 
that allows one keystroke program 
execution. Reads any size catalog 
to produce menu. Applesoft & In- 
teger Sorts, fast implementation of 
Shell-Metzner sort can be adapted 
to your programs. Convert-To-Text, 
turns Applsesoft and Integer pro- 
grams into text files. Utility Package 
2 includes Multiple Disk Catalog, 
File Cabinet Fast Sort, File Copy 
and Food Plan. 



Copies: 
Price: 

Author: 
Available: 



Name: 

System: 

Hardware: 



Just released 
$30.00 each 
$50.00 both 
Gary A. Foote 

GAF Software 

127 Mt. Spring Road 

Tolland, CT 06084 

LCMOD for Pascal 

Apple 

Apple Language 

System 



Description: Allows DIRECT entry of 
upper/lower case into the Pascal 
Editor using the Paymar LCA. Uses 
the ESC key for a shift key and the 
ESC key is now a Control Q to pre- 
vent accidental deletion of text. 
Also provides generation of left and 
right curly brackets for comment 
delimiters and an underline for 
VARs, program names and file 
names. 



Price: 
Available: 



Name: 

System: 

Hardware: 



$30.00 

Southeastern Soft- 
ware 

7270 Culpepper 
Drive 

New Orleans, LA 
70126 

MAG Files 
Apple 
Disk II 



Description: Having trouble keeping 
track of all those magazine articles 
you read? Here is the answer. Enter 
them once and use the search 
modules to find them again either 
by title or subject code. Requires 
Applesoft II. 



Price: 
Available: 



$18.00 

Southeastern Soft- 
ware 

7270 Culpepper 
Drive 

New Orleans, LA 
70126 



Name: 

System: 

Hardware: 



Bad Buy Diskette 

Apple 

Disk II 



Description: Of course it is a bad 
buy. If you had issues 2 through 11 
of the Southeastern Software 
NEWSLETTER, you could type these 
programs in yourself. They are a mix 
of Integer, Applesoft II and 
assembly language programs and 
utilities. 



Price: 
Available 



Name: 



System: 
Memory: 
Language: 



Hardware: 



$9.99 

Southeaster Soft- 
ware 

7270 Culpepper Dr. 
New Orleans, LA 
70126 

Double Precision 
Floating Point for 
Applesoft 
Apple II, Plus 
32K 

AssemblyLangu- 
age. Use with Ap- 
plesoft Programs. 
Disk II 



Description: Provides 21 digit preci- 
sion for Applesoft programs. 
Arithmetic expressions, as well as 
INPUT and PRINT are supported. 
Applesoft subroutines for the stan- 
dard math functions are included. 
Nearly standard syntax is used, with 
the ampersand feature. Efficient 
and compact, only 2048 bytes. 
Loads itself beneath your Applesoft 
prog. Works with Applesoft ROM 
card, with Applesoft in the 
Language System, or with RAM Ap- 
plesoft. 



Copies: 

Price: 

Includes: 

Author: 

Available: 



Name: 

System: 

Memory: 

Language: 

Hardware: 



25 
$50.00 

Diskette, Reference 

Manual 

Bob Sander- 

Cederlof 

S-C Software 

P.O.Box 5537 

Richardson, TX 

75080 

Letter Perfect 

Apple II, Plus 

Min. 32K 

Machine 

Apple II, Plus/ 32K 

min/ Dan Paymar 

Lower Case. 



tional spacing and is capable of 
working with any printer type. It is 
user orientated and menu driven. 
Complete documentation. Supports: 
global and local searches, complete 
formating, full ASC II character set 
with lower case on video display, 
headers, footers, page numbering, 
complete formating within body of 
text, top margin, and much more! 
Full cursor control. 



Author: 
Available: 



Name: 

System: 

Memory: 

Language: 

Hardware: 



Kenneth Leonhardi 

LJK Enterprises, 

Inc. 

P.O.Box 10827 

St. Louis.MO 63129 

Gus's Disk Utility 
Apple II 
16K, 32K, 48K 
Machine 
Apple II, Disk II 



Description: Program is designed to 
be an easy to use aid to working 
with the Apple II DOS 3.1 or DOS 3.2. 
Restore those accidentally deleted 
files, remove DOS from your 
diskette for more room on your data 
only disks, read/write to any sector, 
print file attributes (catalogs your 
disk and allows to choose any file 
on the diskette to give you file type, 
track sector list, the sector lists 
which contains your program), 
prints binary program parameters, 
and will map the free sectors of your 
diskette. Allows individual byte or 
sectors to be changed or transfered 
to another diskette. 



Copies: 
Price: 
Author: 
Available: 



Name: 

System: 

Memory: 

Language: 

Hardware: 



Just released 

$45.00 

Ralph D. Gustafson 

Rainy City Software 
4360 SW Parkview 
Portland, OR 97225 

Disk Apple II Report 

Textwriter -DART 

Apple II Or Apple II 

Plus 

32K 

Applesoft II 

Disk II, optional printer 

and lower case 

adapter 



Description: A character orientated 
word processor. It supports propor- 



Description: A program which com- 
poses reports, articles, letters and 
other documents, utilizing text files 
generated by the "DOS Text Editor". 
Text may be input in free form for- 
mat, without regard to line length or 
pagination. Retrieves the data from 
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the file, formats it into lines of 
desired length, and displays it on a 
printer or Apple CRT. Changing the 
text requires only that the text file 
be modified with EDIT-II, and DART 
called to format and output a new 
report. The variable input funcion 
allows form letters and standard 
text to be modified from the 
keyboard to produce custom letters 
and reports. File chaining allows an 
unlimited amount of input text. 



Price: 



Copies: 
Includes: 

Author: 
Available: 



Name: 
System: 

Memory: 

Language: 

Hardware: 



$19.95 plus $1.25 s&h. 
Package special: 
EDIT-II and DART 
$37.89 

Just released 
Diskette, user manual, 
and documentation 
Robert Stein 
Services Unique.lnc. 
2441 Rolling View Dr. 
Dayton, Ohio 45431 

Disk Text Editor- Edit II 
Apple II or Apple II 
Plus 

Minimum 24K 
Applesoft BASIC 
Apple, disk and op- 
tional printer and 
lower case adapter. 



Description: An improved version of 
the DOS Text Editor, designed to 
create and facilitate changes to 
disk files, reports, lists, etc. Also 
supports the cassette as a file 
device. Includes 35 commands. Str- 
ing commands allow searching, 
changing, and listing of single 
records or blocks of records for a 
specified word or phrase. User in- 
put. File commands merge input 
from various files, parts of files and 
text buffers. Handles full upper and 
lower case ouput to print devices. 
Works with DART. 



Copies: 


Over 200 of Edit-I 


Price: 


Cassette $19.95 




Diskette $23.95 




Shipping $1.95 


Includes: 


User manual and 




documentation 


Author: 


Robert A Stein. Jr. 


Available: 


Apple Computer 




Stores or 




Services Unique, inc. 




2441 Rolling View Dr. 




Dayton, OH 45431 



Name: 

System: 

Memory: 

Language: 

Hardware: 



Program Writer 

Apple 

32K minimum 

Applesoft 

1 Disk Drive 



Description: This program was writ- 
ten to speed up the process of 
writing advanced business program. 
It works as a data management 
system, but also writes disk 
statements as permanent line 
number, if requested. Supports 20 
fields per entry, searching or sorting 
by any field, generating reports, 
packing numbers to increase disk 
space, plus many more. Use for in- 
ventory, checks, phone bumbers, 
etc. Simple to use with instructions. 

Price: $29.95 

Copies: Just released 

Includes: Diskette, 

instruct ions, examples 
Author: Wilford Niepraschk 

Available: Wilford Niepraschk 

5921 Thurston Avenue 

Virginia Beach, Va 

23455 

Name: Visible Memory 

Routines 
System: 8K PET 

Memory: 2K 

Language: Machine Language 
Hardware: 8K PET, MTU Visible 

Memory Board 

Description: Machine language soft- 
ware easily accessable by BASIC. 
Package includes clear screen, plot- 
a-point, line draw, and ROSE plot- 
ting programs. Other programs 
available to run with VM Routines: 
VM LISS-3D space Art, VM Sprirals, 
Hi-resolution spirals, VM 3D Plots, 
same 3D images as seen in many 
ads. More coming. Send SASE for 
list of these and other programs. 
Copies of MTU user's Notes 
available. 



Copies: 

Price: 

Includes: 

Author: 
Available: 



Name: 

System: 

Memory: 

Language: 

Hardware: 



Just released 

$7.95 for VM Routines 

Cassette, Documenta- 
tion 
Russell A. Grokett, Jr. 

Pet Library 

401 Monument Road 

Jacksonville, FL 32211 

PSA/1 

Apple II, Plus 

16K 

Applesoft Basic 

Apple II (Printer, opt) 



Description: A cassette-based in- 
troduction to computer scheduling. 
Using critical-path scheduling 
techniques, it allows the user to 
define a project, input time 
estimates for each job in the pro- 
ject, and then compute schedules 
for each job. Computes the earliest 
and latest each job can be started, 
finished, in order to meet deadlines. 
Also schedules delays without harm 
to other jobs. Displayed on video. 

Copies: New Release 

Price: $25.00 (WA add 5 %) 

Includes: Cassette, User Manual 
Author: Don Taylor 

Available: Express Marketing 

21866 Clear Creek 

Road 

P.O.Box 1736/MSC 

Poulsbo, WA 98370 



Name: Files 

System: Apple II 3.2 or 3.2.1 

DOS 
Memory: 32K min. 

Language: Applesoft 
Hardware: Disk necessary, 

Printer optional 

Description: File is a modular File 
utility program which is designed to 
allow the user to build files, add to 
existing files, correct records, 
delete, lock, unlock, insert records, 
move records, delete records, find 
records, sort, append files together, 
rename and save files, and view file 
data. 

Copies: Just released 

Price: $49.95 

Includes: Disk and manual 
Author: Marc Goldfarb 

55 Pardee Place 
New Haven, Conn. 
06515 



While we have been lenient in the 
past regarding the length of the en- 
tries in the Software Catalog, we 
must now insist that future entries 
be kept as brief as possible. We 
think that twelve to fifteen lines in 
the "description" part of the entry 
should keep it about right. The other 
parts, as long as needed. 
We now have so many entries back- 
ed up, that we feel this policy is only 
fair to give everyone 'equal time'. 
We will be fored to edit, or return 
any entries that we judge too long. 
Mike Rowe 
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WP-6502 

a very fine word processor 




Tape(C1.C2,C4) $75 

5"Disk(C1,C2.C4) ...$75 
8"Diskfor65D $75 



B"B5DSB5U $125 

Descriptive 
Brochure FREE 




Dwvo Quong Fok Lok Sow 

Box 4196, Grand Central Station 

New York City, N.Y .10163 

(212)685-2188 




All ABOUT 

OSI 

BASIC-IN— ROM 



BASIC and MONITOR REFE- 
RENCE MANUAL for Ohio Sci- 
entific Microsoft BASIC — 
IN— ROM Version 1.0 Rev. 3.2 
Complete, Concise (not a 
tutorial), Accurate and Detail- 
ed. All statements and com- 
mands. Looping. Tapes: 
BASIC and homemade. Binary 
representation of floating 
point. Storage of source code 
and variable tables above 
$0300. Maps of pages 
$00,01,02. Routines in 
$A000-BFFF. Line by line 
description of pages: $8.95 
postpaid. Send a check, or 
COD ($1.10 fee). 



Dealers' inquiries invited. 

E.H. Carlson 
3872 Raleigh Drive 
Okemos, Ml 48864 



J 




NEW FROM MUSE SOFTWARE 

for BUSINESS, EDUCATION, ENTERTAINMENT 



THE VOICE 

Challenge your imagination with THE VOICE from MUSE Easily 
record, edit and playback words or phrases through the Apple 
speaker. Record your own vocabulary, then add speech to your 
Basic programs using Print statements Guaranteed the best, easiest- 
to-use speech software On disk, with documentation, for Apple II 
and Apple II Plus with 48K ($39.95) 

ELEMENTARY MATH EDU-DISK 

£. Designed and written by a professional educator Four interactive 

lessons in elementary addition, subtraction, multiplication and divi- 
sion presented on nine skill levels. Interactive lessons use extensive 
color graphics and computer voice to maintain student interest and 
reinforce basic concepts Student scores are stored on disk and can 
be accessed only by the teacher. Self-demonstrating: requires little 
or no instructor assistance. On disk, with comprehensive documen- 
tation Requires Integer Basic and 48K ($39 95) 

ADDRESS BOOK-MAILING LIST 

Store 700 addresses per disk Fast access for viewing, label printing 
or automatic phone dialing Select by name, initials, street, city. zip. 
or user-definable code Quickly sort your file in any order The BEST 
mailing list program for the Apple On disk with documentation 
Requires Applesoft ROM and 48K (S49 .95) 



+ 2 
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For FREE catalog and the address of your nearest MUSE Dealer contact: 



M U S E SOFTWARE 

330 N. Charles St.. Baltimore. MD 21201 (301) 659-7212 



H 
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Computers 
& Gambling 

Magazine 



PRESENTS: 

PROBABILITY 
HANDICAPPING 
DEVICE I 

A 16K BASIC PROGRAM FOR: 

HORSE RACE HAHDICAPPINB! 

This amazing program was written by a professional software 
consultant to TRW Space Systems and is being Introduced by the 

Eublishers of Computers and Gambling Magazine. "PHD-V is a 
rge complex basic program requiring a lull 16K. It is carefully 
human laclored for easy use. PHD- 1 is a comprehensive horse 
racing system lor spoiling overlays in thoroughbred sprint races 
(less lhan 1 mile), you simply sil down with your computer and 
me Racing Foim the nighl belore the race and answer 5 or 6 
questions aboul each horse's pasl pertormance Youi computer 
then accurately predicts the win probability and odds-line for 
each horse allowing you to spot overlaid horses while al the track 
The users manual contains a complete explanation of overlay bel- 
ling. 

Statistics lor thousands ol horses were used lo develop this 
handicapping system, Ths appendix ol the manual contains a 
detailed lab run ol a 100 consecutive race system workout show- 
ing an Mazing 45% positive return (45c tor each $1.00 
wagered) A graph is also included showing PH0-1 s close fit lo 
Ihe ideal predicted probability vs. actual win percentage curve. 

This program features: D Win probability and odds for each 
horse d Veritkalion display ol each horse's parameters prior to 
entry for easy error correction ' Bubble-sort routine for final 
display Hfacilily lor line prinler output Q Cassette ARCHIVE 
routine lo store PHD-1 s output lor later analysis D Complete 
users manual. 

The user's manual may be ordered seperalely lor your purusal 
for 17.95 and will be credited il you purchase PH0-1. 
PHD-1 User's Manual end 16K Oram lit; 
Apple II Appkueft, ChaMoger (Specify Type). 

TRS-Mt Level ll. Pet $29.95 

Make checks payable to: Ca. res. add 6% 
JOE COMPUTER 

22713 Ventura Blvd.. Suite F. Woodland HHs, CA 91364 
•BE A WINNER: Gel on Ihe Computers and Gambling Products 
Magazine mailing lisl lor $3.00 and receive available back issues. 
fWS-80 Is a registered trademark ol Tandy Corporation 
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Continuing bibliography of 6502 related material 



Dr. William R. Dial 

438 Roslyn Avenue 

Akron, OH 44320 



642. Appleseed (Softside) (Jan. 1980) 

Micklus, Lance and Summers, Murray, "Dog Star 
Adventure," pg. 36-48. 

Rescue the Princess Leya. 

643. Creative Computing 6, No. 1 (Jan. 1980) 

Howerton, Christopher, "Grandapple Clock," pg. 104-107. 
Now your Apple can tick, chime, and keep time. 

Carpenter, Chuck, "Apple-Cart," pg. 134-137. 

Discusses Keyword search, the MOD function, New Apple 
products, etc. 

Yob, Gregory, "Personal Electronic Transactions," pg. 
148-150 

Discusses short utility routines, a programming for for- 
matting numbers, etc. 

644. SYM— PHYSIS, Iss. 1 (Jan/Feb. 1980) 

Anon., "2KSA Assembler/Editor," pg. 3-6. 
Assembly language program for the Sym-1. 

Anon., "Relocate for the SYM-1," pg. 7-12. 
Machine language program for the Sym-1. 

Gettys, Thomas, "MERGE/DELETE Program for SYM Basic," 
pg. 13-16. 

Utility routine. 

645. Apple 1, No. 3 (1979) 

Willson, Dr. M. Joseph, "The Challenge to Personal Com- 
puters in Science and Industry," pg. 2-5. 

The Apple II will be on board the Space Shuttle where it 
will monitor scientific experiments. 

Anon., "Applications of the Apple," pg. 7-18. 

Discussion of a number of applications including 
evaluating paramedic and hospital procedures, endocrine 
levels in the birth process, Pascal in Education, testing 
telephone lines, use in the trucking industry, prospecting by 
computer and use in military games in "think tanks." 

646. Recreational Computing 4, No. 1 (Jan. 1980) 

Mulder, David, "Merging on the PET," pg. 40-41. 
Put two programs together with this routine. 

647. Recreational Computing 8, No. 1 (Jan/Feb 1980) 

Hall, David J., "Computing for Health and Equality," pg. 
8-11. 



DAII about Holistic Health and the PET. 

Deliman, Tracy, "Holistic Computing - A Program Idea for 
Healthy Living," pg. 12-14. 

A PET oriented program on holistic health. 

Thornburg, David D., "The Presto-Digitizer Tablet," pg. 16-18. 
A low cost alternative to data entry keyboards. 

Sevik, Jim and Eric, "A Learning Program for Problem 
Readers," pg. 25-28. 

A PET Program for readers with reading problems. 

648. Kilobaud Microcomputing No. 37 (Jan. 1980) 

Anon., "Ohio Scientific's Small Systems Journal," pg. 10-13. 
Discusses the OSI-DMS Quotation/Estimation System, 
the Educational System, Inventory Control, Purchasing 
System, and Bills of Material System. 

Baker, Robert W., "PET Pourri," pg. 14-16. 

Discusses New Pet Products, Axiom Printers, Programm- 
ing Ideas and Tips. 

Schmeltz, Leslie R., " 'Core' and More for Your Apple," pg. 
110-114. 

Accessories for your Apple. 

Freeman, Robert, "The Metamorphosis of a 'Custom' PET," 
pg. 116-118. 

Customize your PET. 

Knapp, Jeff, "Darkroom Master," pg. 126-130. 
Use your PET in the Darkroom. 

649. Stems From Apple 3, Iss. 1 (Jan. 1980) 

Stein, Dick, "PASCAL Time," pg. 7-14. 
Three example programs which either reads or writes a 
data file. 

650. Kilobaud Microcomputing Iss. 38 (Feb. 1980) 

McCormack, Chris, "Microchess Modifications," pg. 68-69. 
Enchance this game for your KIM. 

Ramsey, David, "Two Intriquing and Useful Apple II 
Peripherals," pg. 70-74. 

Getting to know Speechlab and Apple Clock. 

Sparks, Paul W., "Development of a Text-Handling Program: 
A Learning Experience," pg. 112-118. 
Handling words on the PET. 

Martellaro, John, "Apple's Hidden Floating-Point Routines," 
pg. 132-135. 



July 1980 



MICRO — The 6502 Journal 



26:75 



Lightning-fast number crunching. 
Spisich, John, "Add a Digital Tape Index Counter to the 
PET," pg. 158-160. 

Construct this counter for your PET cassette and locate 
files quickly and accurately. 

Blalock, John M., "A Printer for the KIM or SYM," pg. 
186-192. 

The Selectric finds another home. 

651. Creative Computing 6, No. 2 (Feb. 1980) 

Zimmerman, Mark, "Blackbox for the PET," pg. 112-117. 
A game with graphics. 

Carpenter, Chuck, "Apple-Cart," pg. 148-151. 

Hints on using diskettes, Apple I/O Circuits, tips on using 
Pascal, Applesoft formatter. 

652. The Target (Jan/Feb. 1980) 

Bresson, Steve, "CHAIN," pg. 6-7. 
Controlled loading and execution of multiple files from 
tape on the AIM 65. 

653. Call— Apple 3, No. 1 (Jan. 1980) 

Spurlock, Loy, "Creating a Hi-Res Character Set," pg. 13-15. 
A Basic program for creating characters. 

Hyde, Randall, "Assembler Maxi-Reviews," pg. 18-23. 
Reviews of the Microproducts Assembler, the SC- 
Assembler II, ASM/65, EAT (Edit and Assemble Text), LIZA, 
UCSD Adaptable Assembler (Pascal). 

Konzen, Neil, "ZOOM," pg. 28-32. 
Two versions: one for Basic and one in assembly 
language. 

654. MICRO No. 21 (Feb. 1980) 

Peck, Robert A., "Expanding the SYM-1...Adding an ASCII 
Keyboard," pg. 5-7. 

Fairly simple procedure. 

Fam, Richard, "A HIRES Graph-Plotting Subroutine in In- 
teger Basic for the Apple II," pg. 9-10. 

A Basic subroutine is presented which permits graph plot- 
ting. 

Morris, E.D., Jr., "Multiplexing PET's User Port," pg. 13-14. 
Multiplex when you need to Input or Output more bits of 
data than your micro can handle. 

Phillips, Robert, "The Binary Sort," pg. 15-16. 
A concise description of the Binary Sort concept and an 
implemenatation in Basic. 

DeJong, Marvin L., "A Complete Morse Code Send/Receive 
Package for the Aim 65," pg. 19-26. 

A valuable program for the Hams among the AIM users. 

Swindell, Jack Robert, "The Great Superboard Speed-Up 
and Other RAMblings," pg. 31-32. 

Here is all you need to make your OSI Model 600 board run 
twice as fast as it normally does. 

Urban, Michael, "KIM-1 Tape Recorder Controller," pg. 
35-39. 

Some techniques for using a 6502 micro for controlling 
switches are presented, as for example, controlling a tape 
deck. 

Tripp, Robert M., "Ask the Doctor," pg. 41-43. 

Converting the SYM Tiny PILOT to work on KIM; Slow 
Display for the AIM; Chart of the AIM, SYM and KIM expansion 
pinouts. 

Taylor, William L, "Graphics and the Challenger C1P, Part 
3," pg. 47-53. 

Third article shows how to put the pieces together. 



Rowe, Mike (Staff), "The MICRO Software Cataloque XVII," 
pg. 55-56. 

Nine New Programs for the 6502 micros. 

Dial, William R., "6502 Bibliography: Part XVII," pg. 59-62. 
Another 150 references are listed. 

655. BYTE, 5 No. 2 (Feb. 1980) 

Newcomb, Robert K., "Another Plotter to Toy With, 
Revisited," pg. 202-207 
A plotter for the KIM. 

656. Personal Computing 4, No. 2 (Feb. 1980) 

Wheeler, Dwight, "Mechanical Paintbrush," pg. 56-57. 
A graphics program for the PET. 

657. Interface Age 5, No. 3 (March 1980) 

Baker, Al, "Game Corner," pg. 38-42. 
Time Trials is a new program for the Apple II. 

Adler, Alfred, "The Micro-Mathematician," pg. 44-55. 

A continuation of a Fourier Analysis program started 

earlier. 

658. SoftSide (AppleSeed) (Feb. 1980* 

Dubnoff, Jerry, "Supernim," pg. 10-15. 
Adding a second dimension to this old Apple game. 

Anon., "Elementary Math," pg. 22-23. 

A lo-res graphics program with sound to assist in additon 
drills, Apple. 

Brandon, Jack, "State Capitals," pg. 27-29. 
An educational Apple game. 

Anderson, Chip, "Connection," pg. 32-35. 
A lo-res graphics program for the Apple. 

Wagner, Roger, "Musical Scales," pg- 39-41. 

A program to teach musical scales with the Apple. 

Anon., "Sort," pg. 47. 

A utility program for the Apple. 

Anon., "The Vocal Apple," pg. 50-51. 

Short Utility to make the Apple more vocal and respon- 
sive. 

Anon., "Programming Tips for the Apple," pg. 54. 

How to avoid unwanted blanks when editing PRINT 
statements. 

659. On Computing 1, No. 4 (Spring 1980) 

Williams, Gregg, "The Ohio Scientific C4PMF," pg. 39-45. 
A review of a 6502 based microcomputer. 

Hafner, Everett, "An Apple in Hanoi," pg. 70-78. 
An interesting account of bringing up and maintaining a 
modern microcomputer in Southeast Asia. 

660. Dr. Dobb's Journal 5, Iss. 2 No. 42 

Brown, Dewitt S., "A User Interface to Apple II Program 
Renumbering," pg. 26-31. 

Simplification of procedure for using renumbering 
routines. 

Lindenschmitt, Gary, "Another Phone Dialer," pg. 43-44. 
A phone dialer for the PET. 

661. Fort Worth Area Apple User Group Newsletter (Feb. 1980) 

Meador, Lee, "More About Interupts," pg. 1-4. 
A tutorial on Interupts for the Apple. 

Meador, Lee, "DOS Disassembly," pg. 4-9. 
Third installment of the Assembly listing of the Apple II 
DOS. 
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662. 6502 User Notes, No 17 

Silvestri, Gino F., "Match This," pg. 1-3. 
An interactive game for the "naked" KIM. 

Shijanowski, Rush, "How to Transfer Basic Programs from 
PET to KIM," pg. 4-5. 

A utility program for the KIM, modified by Eric Rehnke. 

Deas, Glen, "Basic Cassette I/O Mods," pg. 5-7. 

Mods for lead and save cassette routines for the KIM. 

Doutre, Ben, "Tiny Basic," pg. 7-10. 
Misc. notes on Tiny Basic for the KIM. 

Silvestri, Gino, F., "Broaden Your I/O Cheaply with a 
Non-6500 PIA," pg. 14. 

How to use 8080 peripherals with the KIM. 

Gordon, H.T., "KIM Audible Warning Interface," pg. 15. 

Software and hardware for an audible KIM. 
Clements, W.C., JR, "Interfacing the TVT-2 Video Board with 
theKIM-1." 

A How-to articled on interfacing. 

Hogg, Frank, "Cassette Load Display on KIM LEDs," pg. 
16-17. 

Load Memory from Tape with display. 

Hooper, Philip K., "Cassette Save Using Alternate Starting 
Address," pg. 17. 

How to read a cassette file into a memory block other 
than than the one from which it was dumped. 

Nelis, Jody, "AIM Info — AIM printer Modification," pg. 20. 
How to clear up wavy lines and how to get heavier print. 

Bresson, Steve, "AIM 65 Basic — Data Save/Load Scheme," 

pg. 20. 

Save and Load strings and data in text form from Basic. 

List, Gunnar, "TINY BASIC for SYM," pg. 22. 
Tiny Basic modified for the SYM. 

Regal, Ron, "OSI Notes," pg. 22. 

Interfacing a 42K Ram board to the C-24P 

Carlson, Edward, "Zero-Page Map for Basic in the C2-4P," 
pg. 23. 

Memory Map. 

Leasia, John D., "Pseudo Random Number Generator," pg. 
24. 

A utility routine. 

Eaton, John, "KIMATH Support," pg. 24. 
A routine to find the Tangent of an angle. 

Goenner, Markus, "Interrupt Routines and Breakpoint," pg. 

KIM-1 IRQ routine. 

Jordan, Doug, "Square-Waver II," pg. 26. 
A short routine for audio. 

664. Abacus II, Iss. 1 (Jan. 1980) 

Davis, James P., "Two Diamonds - A Puzzle Game," pg. 4-7. 
A game adapted for Applesoft. 

Avelar, Ed, "Remote Control for the Apple II," pg. 4-7. 
Special hardware to turn on a remote Apple by phone. 

Anon., "Nicer Menu," pg. 7. 

Select from your apple disk catalog by designating a let- 
ter. 

Anon., "Auxilliary Key Board Plug," pg. 8-9. 

A second Keyboard for the Apple is possible with this 
plug. 

Anon., "Math Section I (Addition)," pg. 10. 
An Addition program in Integer Basic for the Apple. 

Wilkerson, David R., "Apple Writer 1.0," pg. 12-13. 
A review of this word processor. 
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665. Dr. Dobb's Journal 5, Issue 3 (March, 1980) 

Cason, R., "PET Tape CURE," pg. 43. 

666. Stems from Apple 3, Issue 2 (Feb. 1980) 

Hoggatt, Ken, "Ken's Korner— Basic and Pascal," pg. 3-7. 
Similarities between Basic and Pascal. 

Pfeiffer, Jim, "How Applesoft Stores String Arrays," pg. 4-6. 
Discussion of String Arrays and how to clear such space. 

Byerly, Kent, "Literal Input Fix," pg. 7. 
A fix for a program "Literal Input". 

667. Byte 5 No. 3 (March 1980) 

Helmers, Carl, "Hunting the Computerized Eclipse," pg. 
6-12. 

Use of the Apple in an Eclipse Monitor operation. 

Matthews, Randall S., "Hydrocarbon Molecule 
Constructor," pg. 156-166. 

An Organic Chemistry teaching aid. 

Couchman, James C, "KIM-1 Multiplication and Division," 
pg. 212-216. 

Routines to multiply and divide two 16-bit signed quan- 
tities. 

Hooper, Phillip K., "The Correct Order of Operations Can 
Shorten Code," pg. 242-244. 

Pointer decrementing on the 6502. 

668. Nibble (Jan/Feb. 1980) 

Anon., "Hi-Resolution Multi Color Kaleidoscope," pg. 7. 
Two Hi-res color programs for the Apple. 

Anon., "Sort 'em Out," pg. 8. 

Discussion of Sort techniques on the Apple. 

Anon., "Initialize New Files Automatically with ONERR 
GOTO," pg. 9. 

How to use the ONERR GOTO instruction on the Apple. 



GPIB for APPLE II ™ 

Are you smart enough to use a dumb board 7 

You bet you are! 

With two programmable 8 bit 10 ports, each with two 
control lines, an eight bit shift register, and two 
programmable counter-timers, this board can do too 
many things for anyone to supply your program in ROM. 

But you can control it using BASIC, FORTH, PASCAL or 

machine language programs-to input or putput data, 

control external devices, to time internal or external 

events, or to count external events. 

A large area is available for any buffers, relay etc. 
that you might need for the control of external devices. 

Supplied completely assembled and tested, with two 

10 cables and extensive instructions. 

Gold edge connector for highest reliability. 

One year warranty, 30 day MBG. 
Only $59.50, post paid in cont. USA 

SASE for additional data or with questions regarding 
your specific application. 



MC 



microAustin 

P BOX 14408 

Austin, Texas 78761 



AT LAST 

ENHANCE THE FULL CAPABILITIES OF YOUR DISK II 

SOFTOUCH ANOUNCES THE 

" DISC MANAGEMENT SYSTEM " 
EIGHT PROGRAMS ON DISK TO PROVIDE THE USER WITH A 
COMPLETE UNDERSTANDING OF THE DISK DRIVE COMMANDS 
PLUS A UTILITY PACKAGE TO INDEX AND CATAGORIZE ALL 
PROGRAMS WRITTEN FOR THE APPLE II COMPUTER. THE 
SYSTEM PROVIDES FULL SEARCH , EDITING AND DATA 
TRANSFER CAPABILITIES. 

A TWENTY-SIX PAGE BOOKLET PROVIDES DETAILED , 
EDUCATIONAL TECHNIQUES GIVING A THROUGH UNDERSTAND- 
ING OF ALL DOS COMMANDS. 

INCLUDED ARE SUCH TECHNIQUES AS: 

• INITIALIZATION OF TEXT FILES 

• WRITING 6 READING OF TEXT FILES 

• CREATING TEXT FILES 
" EDITING FILES 

• TRANSFERRING DATA TO OTHER DISKETTES 

• LISTING OF DATA FILES 

• SEARCHING DATA BY VARIOUS OPTIONS 

A DOCUMENTED LISTING PROVIDES LINE CHANGES FOR 
ADAPTING THE SYSTEM TO PREFORM NUMEROUS OTHER 
APPLICATIONS. 

THE BOOKLET IS WRITTEN IN A MANNER WHICH MAY BE USED 
BY THE NOVICE AS WELL AS THE EXPERIENCED PROGRAMMER. 
DOZENS OF PROGRAMING TECHNIQUES ARE SHOWN AND FULLY 
DOCUMENTED. ALSO INCLUDED SEPARATELY, IS A PROGRAMMERS 
AID GIVING QUICK REFERENCE TO INTEGER, APPLESOFT AND 
DOS COMMANDS WITH ILLUSTRATIVE EXAMPLES, 

SYSTEM REQUIREMENTS: DISK II S APPLESOFT TAPE OR ROM CARD 

PRICE $24.95 (PROCESSED 6 SHIPPED WITHIN 4 DAYS) 

SEND CHECK OR MONEY ORDER TO: 

SOFTOUCH 
P.O. BOX 511 

LEOMINSTER, MASS. 014S3 
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KIMSI 
FLOPPY 
DISKS— 

PERRY PERIPHERALS HAS 

THE HDE MINIFLOPPY TO KIMSI 

ADAPTER 
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* MINIFLOPPY S-100 ADAPTER: $15+ 1.50 p&h » 

* ($20. as of June 1, 1980! * 

* • FODS and TED Diskette » 
J • FODS and TED User Manuals * 

• Complete Construction Information * 



(N.Y. 



(Not a kit; no parts supplied) 
♦OPTIONS: 

£• FODS Bootstrap in EPROM (1st Qtr'80) 

«• HDE Assembler (ASM) $75 

♦ •HDE Text Output Processor (TO PS ) $ 1 35 

« 

+ 
* 

* 
* 

* 
* 
* 



State residents, add 7% Sales Tax) 

Place your order with: 

PERRY PERIPHERALS 

P.O. Box 924 

Miller Place, N.Y. 11764 

(516)744-6462 

Your "Long Island' HDE Distributor 
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CP/A 



OPTIMIZED SYSTEMS 

SOFTWARE 

PRESENTS 

CONTROL PROGRAM/APPLE 

the DOS you have been waiting for 

OSS CP/A is an all new, disk-based 
operating system which provides 
commands and utilities similar to 
CP/M 1 * CP/A has byte and block I/O, a 
simple assembly language interface, 
and direct access via Note and Point. 
And it's easy to add your own com- 
mands or device handlers. CP/A is 
expandable, flexible, consistent, 
easy-to-use and available now with 
compatible program products: 

BASIC — Some of the features of OSS 
BASIC are syntax checking on program 
entry, true decimal arithmetic (great for 
money applications), 32K byte string sizes, 
flexible I/O, long variable names (up to 255 
significant characters), and the ability to get 
and put single bytes. 

BUSINESS BASIC WITH PRINT USING — 

This is virtually the only basic available on 
the Apple that has PRINT USING. It also 
has record I/O statements and all the 
features of our standard BASIC. 

EDITOR/ASSEMBLER/DEBUG — OSS 

EASMD is a total machine language de- 
velopment package. The editor provides 
functions like FIND, REPLACE, etc. The 
assembler uses standard 6502 mnemon- 
ics, can include multiple files in one assem- 
bly, and can place the object code in 
memory or to a disk file. 

Prices of CP/A with: 

BASIC $ 69.95 

Business BASIC 84.95 

EASMD 69.95 

BASIC + EASMD 109.95 

Business BASIC + EASMD .... 124.95 

Requires 48K RAM and DISK 

Add S3. 50 lor shipping and handling tn continental USA. 
California residents add 6%. VISA/Master Charge wel- 
come. Personal checks require two weeks to dear. 

SEE YOUR DEALER or ORDER TODAY 



OPTIMIZED SYSTEMS SOFTWARE 

Is a product of 

Shepardson Microsystems, Inc. 

20395 Pacifica Dr.. Suite 108B 

Cupertino, CA 95014 

(408) 257-9900 



Missing MICRO Information? 

MICRO is devoted exclusively to the 6502. In 
addition, it is aimed at useful, reference type 
material, not just "fun and games". Each 
month MICRO publishes application notes, 
hardware and software tutorials, a continuing 
bibliography, software catalog, and so forth. 
Since MICRO contains lots of reference 
material and many useful program, most 
readers want to get the entire collection of 
MICRO. Since MICRO grew very rapidly, it 
quickly became impractical to reprint back 
issues for new subscribers. In order to make 
the older material available, collections of the 
reprints have been published. 

[A limited number of back issues are still 
available from number 7 to 18 and 20 to cur- 
rent. There are no 19's left.] 

The BEST of MICRO Volume 1 contains all of 
the significant material from the first six 
issues of MICRO, from October/November 
1977 through August/September 1978. This 
book form is 176 pages long, plus five 
removeable reference cards. The material is 
organized by microcomputer and almost 
every article is included. Only the ads and a 
few 'dated' articles have been omitted. [Now 
in third printing!] 
Surface . . . $7.00 Air Mail . . . $10.00 

The BEST of MICRO Volume 2 covers the se- 
cond six issues, from October/November 1978 
through May 1979. Organized by microcom- 
puter, this volume is 224 pages long. 

Surface . . . $9.00 Air Mail ... $1 3.00 

The BEST of MICRO Volume 3, covering the 
twelve issues from June 1979 through May 
1980, will be over 400 pages long. It is 
scheduled for late summer 1980. The price is 
still to be determined. 

For a free copy of the Index for Volumes 1, 2, 
and 3, please send a self-addressed, stamped 
envelope to: 

BEST of MICRO, P.O. Box 6502, Chelmsford, 
MA 01824 
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JL/ecision 

Qystems 




presenting the Other Side o) the Apple II* 
INDEXED FILES 

ISAM-DS is an integrated set of routines for lhe creation and manipulation 
of indexed files. ISAM-DS provides capabilities comparable to those on 
large mainframes. You can rapidly retrieve records by key value or partial key 
value (retrieves any record in a 200 record file. 60 char/ record, in less than 3 
seconds compared to a maximum of 38 seconds for a DOS sequential file). 
Files never have to be reorganized. Duplicate key values may be used. 
Records may also be retrieved in sequence. ISAM-DS routines are easily in- 
tegrated into Applesoft programs — they use less than 3K RAM plus an in- 
dex table. 

Requires: Disk. Applesoft (32K ROM or48K RAM) 
$50 

STRUCTURED BASIC 

PBASIC-DS is a sophisticated preprocessor for structured BASIC. Now 
you can gain the power of PASCAL-like logic structures at a fraction of the 
cost. Use all regular BASIC statements plus 14 commands and 11 new 
statements/structures (WHILE. UNTIL, CASE. etc.). PBASIC-DS can be 
used to develop INTEGER or APPLESOFT programs. It is a great way to 
learn and use structured logic concepts. 

Requires: Disk. Applesoft (32K ROM or48K RAM) 

S35 

(Texas residents add 5% tax) 

Decision Systems 

P.O. 8ox13006 
Denton. TX 76203 

"Apple II is a registered trademark ot the Apple Computer Co. 



interactive video 

• Index and acccess multiple frames or seg- 
ments of videotape by name or by frame 
number from the Apple* keyboard or from 
within a program 

• Develop a comprehensive picture and text 
information storage and retrieval system 

• Interfaces any VCR having a control pulse or 
search capability with the Apple Computer* 

• Uses the same screen for computer and video 

• Utilize extensive authoring software to easily 
write CAI 

A complete package of all interfacing 

hardware, software, and connectors 

available from 



, 



Cavil 



SYSTEMS 
26 Trumbull Street, New Haven, CT 06511 
or call (203) 562-9873 

'TM - Apple Computer Co. 



OSIC-1P/SUPERBOARD 

Can a cassette-based micro with a 24x24 
display and 4K RAM make a practical terminal? 

It can with CHAT (Challenger Terminal), 
the intelligent terminal. 

In addition to ASCII communication via the 
keyboard, CHAT also provides: 



Storage of received data in a butter whose contents can 
later be examined or saved on tape. Butter automatically 
expands on systems with more than 4K RAM. 

Direct transmission ot data stored on tape to other 
computers. 

Full/hall duplex modes: selectable parity, data and stop 
bits. 

Standard ASCII keyboard layout with auto repeat and 
transmit break key. 

Unique keyboard teature rarely seen on other terminals — 
user moditiable key layout CHAT allows you to reprogram 
the keyboard so that you may choose where to locate 
characters and control codes Changes do not have to be 
reentered every time you load the program' 

Requires RS232 mod. 
$24.95 ppd. incl. cassette and manual 

Charles A. Shartsis 

9308 Cherry Hill Rd. #812 
College Park, MD. 20740 



CRAE 

A fast Co-Resident Applesoft Editor for Applesoft pro- 
grammers. Now perform Global changes & finds to 
anything in your Applesoft program. Quote (copy) a range 
of lines from one part of your program to another. A fully 
optimized stop-list command that lists your program to 
the screen with no spaces added and forty columns wide. 
Append Applesoft programs on disk to program in 
memory. Formatted memory dump to aid debugging. 
Powerful renumber is five times faster than most 
available renumber routines. Auto line renumbering. 
CRAE need be loaded only once and changes your Apple 
soft program right im memory. 24K Apple II or Plus & Ap- 
plesoft ROM & Disk. 

MCAT 
MCAT is a binary program which creates a master catalog 
report. The first list is sorted by file names and the second 
by volume number with sectors used indicated. Provi- 
sions for duplicate volume numbers. 600 file names 
capacity on a 48K system. 200 for a 32K system. 
CRAE on disk with 16 page manual $19.95 

MCAT on disk with 10 page manual $14.95 

CRAE and MCAT on one disk with manuals $29.95 

One manual $2 Both manuals $3 

CRAE/MCAT manuals include instructions for making a 
backup copy. 
See your local dealer or send checks to 

HIGHLANDS COMPUTER SERVICES 
14422 S.E.132ND 
RENTON, WASHINGTON 98055 
(206)228-6619 

Washington residents add 5.3% sales tax. Applesoft and 
APPLE are registered trademarks ot APPLE Computers 
Inc. 
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Complete Your MICRO Collection 

NOW is the best time to complete your MICRO 
collection — during our Summer Special! 



Order back lasues from now until September 30, 1990 and receive our special 
price. Complete your MICRO collection at thaaa low prices. 

Special prices on Issue numbers 7 [Oct/Nov 1978] through 18 [Nov 19791. 
Issues 7-12 Regularly $1.75 Surface Issues 13-18 Regularly $£25 Surface 

Summer Special Price: $1.00 for any Issue 7 — 18 In the U.S. 

$1.25 for any Issue 7 — 18 foreign. 
All back Issues will be shipped Surface. Air Mall service only at regular rates. 

laauaa 20-24 available for $2.25, or check with your local dealer. Sorry, number ' 
19 [Dec 1979] la no longer available! 

Free Copy off MICRO 

Help spread the good word about MICRO — send a 
free copy to a friend during our Summer Special. 



During thla period, you can share MICRO with a friend. Send In the address 
label from your MICRO, along with the name and address of a friend whom you 
think would enjoy receiving MICRO, and we will aend him a free back Issue. 
Back Issue sent will be publisher's choice, and this free offer expires 
September 30, 1980. 



Regular Subscription Information 

One year's subscription = 12 Issues. US: $15.00, All other countries: $18.00 for surface. Air Mall rates for 
Central America: $27.00, Europe/S. America: $33.00, All other countries: $39.00. 

Best of MICRO Voulme 1 (Issues 1-6): $7.00 for Surface, $10.00 for Air Mall. Best of MICRO Volume 2 
(Issues 7-12): $9.00 Surface, $13.00 Air Mall. All of MICRO Volume 2: $9.00 Surface, $13.00 Air Mall. 
All payments must be In US dollars. Please make checks payable to MICRO. Foreign payments In Interna- 
tional Money Order or cash. 

MICRO 

P. O. Box 6502 

Chelmsford, MA 01824 

(617)256-5515 



The home computer you thought was 
years away is here. "" 
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C8PDF *2,895 

Ohio Scientific's top of the line personal com- 
puter, the C8P DF. This system incorporates 
the most advanced technology now available 
in standard configurations and add-on options. 
The C8P DF has full capabilities as a personal 
computer, a small business computer, a home 
monitoring security system and an advanced 
process controller. 

Personal Computer Features 

The C8P DF features ultra-fast program execu- 
tion. The standard model is twice as fast as 
other personal computers such as the Apple II 
and PET. The computer system is available 
with a GT option which nearly doubles the 
speed again, making it comparable to high end 
mini-computer systems. High speed execution 
makes elaborate video animation possible as 
well as other I/O functions which until now, 
have not been possible. The C8P DF features 
Ohio Scientific's 32 x 64 character display with 
graphics and gaming elements for an effective 
resolution of 256 x 512 points and up to 16 
colors. Other features for personal use include 
a programmable tone generator from 200 to 
20KHz and an 8 bit companding digital to 
analog converter for music and voice output, 
2-8 axis joystick interfaces, and 2-10 key pad 
interfaces. Hundreds of personal applications, 
games and educational software packages are 
currently available for use with the C8P DF. 
Business Applications 
The C8P DF utilizes full size 8" floppy disks 
and is compatible with Ohio Scientific's ad- 
vanced small business operating system, 
OS-65U and two types of information manage- 
ment systems, OS-MDMS and OS-DMS. 
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The computer system comes standard with a 
high-speed printer interface and a modem in- 
terface. It features a full 53-key ASCII 
keyboard as well as 2048 character display 
with upper and lower case for business and 
word processing applications. 
Home Control 

The C8P DF has the most advanced home 
monitoring and control capabilities ever 
offered in a computer system. It incorporates 
a real time clock and a unique FOREGROUND/ 
BACKGROUND operating system which allows 
the computer to function with normal BASIC 
programs at the same time it is monitoring 
external devices. The C8P DF comes standard 
with an AC remote control interface which 
allows it to control a wide range of AC appli- 
ances and lights remotely without wiring and 
an interface for home security systems which 
monitors fire, intrusion, car theft, water levels 
and freezer temperature, all without messy 
wiring. In addition, the C8P DF can accept 
Ohio Scientific's Votrax voice I/O board and/or 
Ohio Scientific's new universal telephone inter- 
face (UTI). The telephone interface connects 
the computer to any touch-tone or rotary dial 
telephone line. The computer system is able to 
answer calls, initiate calls and communicate 
via touch-tone signals, voice output or 300 
baud modem signals. It can accept and 
decode touch-tone signals, 300 baud modem 
signals and record incoming voice messages. 
These features collectively give the C8P DF 
capabilities to monitor and control home func- 
tions with almost human-like capabilities. 
Process Controller 

The C8P DF incorporates a real time clock, 
FOREGROUND/BACKGROUND operation and 
16 parallel I/O lines. Additionally a universal 



accessory BUS connector is accessible at the 
back of the computer to plug in additional 48 
lines of parallel I/O and/or a complete analog 
signal I/O board with A/D and D/A and 
multiplexers. 

Clearly, the C8P DF beats all existing small 
computers in conventional specifications plus 
it has capabilities far beyond any other com- 
puter system on the market today. 
C8P DF is an 8-slot mainframe class computer 
with 32K static RAM, dual 8" floppies, and 
several open slots for expansion. 

C8P $ 950 

Or get started with a C8P with cassette inter- 
face, 8K BASIC-in-ROM which includes most 
of the features of the C8P DF except the real 
time clock, 16 parallel I/O lines, home security 
interface and accessory BUS. It comes with 
8K static RAM and Ohio Scientific's ultra-fast 
8K BASIC-in-ROM. It can be expanded to a 
C8P DF later. Base price $950. Virtually all the 
programs available on disk are also available 
for the C8P cassette system on audio 
cassette. 

Computers come with keyboards and floppies where specified. 
Other oquipmenl shown is optional. 

For literature and the name of your local fl| 
dealer, CALL 1-800-321-6850 TOLL FREE, w 



1333 SOUTH CHILLICOTHE ROAD 
AURORA, OH 44202 • [21 6] 831 -5600 



